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no other printer interface can t 



Only CARDCO would dare improve on its own 
best seller (the + G has far out-sold any other 
printer interface, and has set the industry 
standard by which competitors are judged). 
The G-Wiz is even better — and costs 
30% iess.* Our 27th major innovation in 
Commodore accessories has all the +G's 
features, and more... 
Built-in Suffer for More Speed 
The G-Wiz buffer dumps high-resolution 
screens up to 18 times faster than competitive 
interfaces without buffers. No more waiting! A 
complex 50-minute printout now takes just 2.5 
minutes with the G-Wiz. 
Exclusive! Aspect Ratio Selection 
Only the G-Wiz matches graphics characters to 
standard characters on Okidata, Epson, Star 

'Actual price may : vary according lo dealer and region 



Micronics, Prowriter, Smith Corona, C-ITOH, 
Gorilla Banana, and many other dot matrix 
printers. Now you can perfectly align high 
resolution graphics characters within text 
blocks, or in columns. 
CARDCO excellence triumphs again! The 
G-Wiz is the "best bang for the buck" on the 
printer interface market today — and it's 
backed by CARDCO'S exclusive lifetime 
warranty! G-Wiz: another distant target for the 
competition to shoot at. 



CARDCO, lnc.300S.Topeka/Wichita,KS 67202 
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'Graphics Extravaganza?' " Michael 
Schneider asked when I showed him this 
month's cover headline. "A couple of pro- 
grams and a tutorial doesn't make it an 'ex- 
travaganza.' If Tm going to call it a 'graphics extravaganza." 
it had darn well better be a 'graphics extravaganza." " 

Having a publisher with ethics is a constant source of 
difficulty, but one the shrewd editor can live with through 
careful planning. In this case, careful planning involved 
bringing along the full lineup of graphics articles in this 
month's Ahoy! One by one I laid them on his desk. 

"Look, Mike," I said, "Screen Magic by Bob Spirko, 
who wrote Alice in Adventureland for us a few months 
back. It provides a joystick-controlled palette and can- 
vas for creating color graphics on the 64. without all the 
complicated commands. 

"And Screen Dumping on the Commodore 64—2 real 
education in creating screen bit graphics. It would have 
to be. It was written by Professor Roger S. Macomber 
of the University of Cincinnati. The program he includes 
uses machine language to speed up the dumping of graph- 
ics to a printer. 
"Dale Rupert covered screen bit graphics in this month's 
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Rupert Report, too- but Tlie Ultimate Resolution con- 
centrates on the theory behind practical applications like 
Prof. Macomber's. 

"Here's another example of how graphics theory can 
be put to use: J.M. Marcano's Mapping 4.4, which al- 
lows you to plot mathematical functions in hi-res." 

Peering at me over the pile of manuscripts, Mike looked 
annoyed. I asked why. 

"Because." he said, ^ou're standing here babbling when 
you've got a graphics extravaganza to put together!" 

Gee. I thought as I left Mike's office -I didn't even get 
to tell him about this graphics issue's flagship piece: 
Quad-Print by Michael Beutjer. Mprton Kevelson will 
tell you all about this landmark program in his Graphics 
Challenge Update on the facing page. 

Having justified our cover headline, we'll now do the 
same for the larger type on the cover— the Ahoy! logo- 
with the finest lineup of Commodore-related articles and 
programs you'll find on the newsstand this month: 

• For Orson Scott Card to outdo himself would take 
some doing (outdoing?)— but he may have succeeded with 
this month's installment of Creating Your Own Games 
on the VIC and 64. In Sing a Song of Anything, he pro- 
vides a system by which C-64 users can automatically 
enter music into their original game programs— as eas- 
ily as typing letters! (Turn to page 18.) 

• The third installment of Commodore Roots, Mark 
Andrews' assembly language programming column, peers 
Under the Hood of your computer at its microproces- 
sor. Included is the 6570 Simulator, a program which. 
while not an assembler, will show you how one works. 
(Turn to page 77.) 

• Duck Shoot starts out as easy as the penny arcade 
version, but soon reaches a level of complexity certain 
to ruffle your feathers. (Turn to page 35.) 

• Towers of Hanoi adapts the famous Tower of Brah- 
ma puzzle to the C-64 screen. (Turn to page 17.) 

• Even the most expert joystickers will be thrown for 
a loss by Speedy for the unexpanded VIC 20. Its title 
character has a mind of his own when it comes to re- 
sponding to your directions. (Turn to page 56.) 

• Sheldon Lcemon, author of MACTALKS and Tele- 
computing on the IBM PC from COMPUTE! Books, 
takes over at the helm of our Ship to Shore column this 
month with a technical overview of telecommunications. 
(Turn to page 29.) 

• Also inside are Dale Rupert's Commodores at their 
most frustrating; Scuttlebutt, offering news in greater 
depth and more timely fashion than any other Commo- 
dore monthly: and Re\'iews of products like Blue Max 
2001, PROMAL, and the Teknika MJ-10 color monitor. 

Love to tell you more, but I have to run back to Mike's 
office. His secretary dropped a note on my desk— some- 
thing about a "Graphics Super-Spectacular." 

—David Allikas 



GRAPHICS CHALLENGE 
UPDATE 

By Morton Kevelson 



I -^r | n the October 1984 issue of Ahoy!, as part of a 
tour de force on Commodore 64 bit mapped 
graphics, I issued a graphics challenge to all com- 
1-^- 1 ers. In brief, I was looking for some way to manip- 
ulate a bit mapped graphics field which exceeded the lim- 
itations of a single 320 by 200 pixel Commodore 64 high 
resolution display. The response has been far from over- 
whelming, but some results are in. 

The first answer came from Inkwell Systems, with ver- 
sion 4.0 of Flexidraw. Among the enhancements to ver- 
sion 3.0 (reviewed in November 1984) is the ability to 
link multiple screens on both the monitor and the print- 
er. This allows for printouts made up of 544 pixels wide 
and an unlimited number of pixels high. (Look for a de- 
tailed review of Flexidraw version 5.0 later this year. This 
will have so many enhancements to version 3.0 that if 
is practically a new program.) 

The second response comes from Michael Beutjer, au- 
thor of Picture Perfect from KT Software (October 1984 
Ahox!). For those of you who have been unable to locate 
this versatile Koala screen dump program, it is now be- 
ing sold as KoaiaPriiuer by Koala Technologies. Mr. 
Beutjer has responded to my challenge by providing the 
Quad-Print program in this months issue. The two ver- 
sions of this program will allow up to four DOODLE! 
files to be linked for simultaneous printout on a Gemini 
10X or a Commodore 1526 printer. 

Bit mapped graphics for the 1526 printer arc difficult 
to implement, as it does not support true graphics mode. 
The 1526 allows for a single custom character to be de- 
fined and printed. Thus a full bit mapped screen dump 
requires the image to be formed eight bytes at a time. 
Furthermore, each time the custom character is redefined 
a carriage return without linefeed must be executed be- 
fore it can be printed. This is what causes bit mapped 
screen dumps to print so slowly on the 1526. 

For advanced users, the source code listings for the 
Quad-Print programs have been included. Owners of the 
1526 should take note of the listing labeled Fast Dump 
Routine. Mr. Beutjer has used a clever trick to maximize 
the speed of the 1526 bit map printout. The single char- 
acter is not redefined unless it is found to be different 
from the last one. As a result, this high resolution dump 
for the 1526 should be the fastest available from any 
source. D 
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Powertype Daisywheel 18 CPS 
withCardcoB S354 

Okidata 92 160 CPS 
with Ty mac Connect km . ... 429 

Commodore MPS 802 . Call 

Okidata 182 NEW Call 

SPECIAL 



PRINTERS 

Epson RX 80 

with Tymac Connection . 
DPS 1 101 Daisywheel 

Direct Connect to C64 . . 

RitemanC+ NEW Call 

M W-350 Interface NEW Call 



S299 



Call 



PRINTSHOP >32.00 • SPECIAL 

DISK DRIVES 

USD Su]iet Drive Call Commodore 1 541 Call 

Indus GT Call Phonemark Datasette S29 

Epyx Fast Load $27 

Commodore 1571/72. . Call 
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SGIO PRINTER 
2K Buffer .O A T T I 
NLQMode V_,/VLL,I 
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MONITORS 

TeknikaMJIO S189 Zenith ZVM GrJAmb , $89/99 

Commodore 1702 .... Call Commodore 1902 ... . Call 

DATABASE MANGERS 

The Consultant $59 PFS;File $59 

Super Base 64 49 PFS:Rcport 49 

The Manager 35 

WORD PROCESSORS 

Paper Clip/& speller $55/69 Easy Script $35 

Fleet System 2 NEW .... Call Easy Spell 17 

ACCOUNTING 

Peachtrce GL/AP/AR $ 1 39 

Commodore GL/AP/AR/PR/INV ea. 34 

Jl 



COMPUSERVE STARTER „ n n — 

K1T& YlliTKX ... bviln-r jy.yt) 

MODEMS 

\Vestritlge6420 Call 

Mighty Mo Call 

Volksmodem 1 2 I2«i Bjud' Call 

VIP Terminal $29 

Commodore 1660 59 
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ACCESSORIES 

Com Cool Drive Fan $49 Power Pak 

Com Cool Plus w/ surge 69 Surge Protector 4-Plug 

BLACK NAUGAHYDE COVERS 

C-64 or 1541 Drive .. . ea, $5 1 702 Monitor $10 

MSD Drives 1/2 5/6 1525/MPS801 7 

Gemini 10X 9 1526/MPS802 8 

MOST ORDERS SHIPPED WITHIN U HOURS Adsernsed pints ire tor bink check 01 monef order. 
VISA MC orders idd 3 5n NO C O ORDER5 Personal or company checks delay orders It days All sales 
jie final - dciettivr merchandise rrrhin^d ior sanse product only Add 3% lor shipping |»2.S0 min.l 
PklH og tor shipping on monitor* Ohio residents jiid 5 jS sales lai Prices t availability subject to change 
MCH KS: \IO\ 1 HI II) AMlo 10PM • SAT lOAMlofiFM • SL'N Noon In 5 PM 

800-638-2617 
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HOW 

TO AVOID 
BECOMING A 



DINO 

If dinosaurs had kept up with their 
rapidly changing world, you might 
have a pet bronto today. (It's 
probably just as well they 
didn't, since they wouldn'tfit 
into a small imported car 
anyway.) 

The point is, if you 
don't want to get left 
behind today, you 




OR. 

need a computer with the latest 
software and accessories. No 
question about it. The only ques- 
tion is, "where do I buy it?" 

Ah! We thought you'd never 
ask. Computer Warehouse, of 
course. Nice guys, great prices. 

Give us a call today. Well get 
your shipment out bronto— 
er, pronto. 



COMMODORE 

C64 S139.95 

1541 $179.00 

1101 Daisywheel Printer S329.95 

MPS 801 S169.95 

MPS 802 $209.00 

1702 S209.00 

SX 64 $499.00 

Modem 300/1660 $ 89.95 

Power Packs $ 29.95 

Dalasetles $ 29.95 

PRINTERS 

Star Printers 

SG10 $269.00 

SD 10 S399.00 

SR 10 $499.00 

Powertype $369.00 

Radix 10 $499.00 

Delia 15 CALL 

Okidata Primers 82. 83 and 92 . - CALL 

Citizen MPS 10 $339.00 

Panasonic 1091 $299.00 

Axiom Elite 5 Daisywheel 

Printer $249.00 

With interface $299.00 

MODEMS 

Westridge S 69.95 

MPP 1064 $ 89.95 

Mighty Mo $ 89.95 



SOFTWARE 

Floppiclene Head Cleaner . ...$ 14.95 
Word Processors 

Paperclip with spell pack $ 69.95 

Wordpro 64 $ 39.95 

Easyscripl $ 39.95 

Words Writer $ 44.95 

Write Now $ 39.95 

Cut and Paste $ 39.95 

Databases 

Practitile $ 24.95 

Superoase 64 $ 59.95 

The Manager $ 34.95 

The Consultant $ 69.95 

PFS File $ 59.95 

File Now S 39.95 

FMC (Continental! $ 34.95 

Games 

Flight Sim II $ 36.95 

Zorks, I, ll.lll S 29.00 

Ghostbusters $ 19.95 

Pitfall $ 19.95 

Chipwits $ 29.95 

Synapse Games $ 19.95 

Epyx Games from S 9.95 

Spreadsheets 

Multiplan $ 59.95 

Practicalc $ 29.95 

Easy Calc $ 49.95 

Calc Result $ 69.95 

Swift Calc $ 49.95 



Educational 

Maefstorm $ 7.95 

Primary Math $ 7.95 

Math Tutor $ 7.95 

Ten Lillle Indians $ 7.95 

Gotcha Math $ 7.95 

Toddler Tutor $ 7.95 

English Invaders $ 7.95 

Tiny Tutor S 7.95 

Science Pack $ 7.95 

Math Pack . - $ 7.95 

Peanuts Picture Puzzlers $ 19.95 

Peanuts Maze Marathon $ 19.95 

Snoopy Skywriter $ 19.95 

Charlie Brown ABC $ 19.95 

Snoopy to the Rescue $ 1 9.95 

Family Finance 

Home Accountant $ 69.95 

Complete Personal Accountant S 69.95 

Time Money Manager $ 49.95 

Financial Cookbook $ 29.95 

Full line ol CBS Software CALL 

DISKETTES* 

Computer Warehouse ss/dd ..$ 14.95 

Elephant ss/sd S 13.95 

Elephant ss/dd $ 16.95 

Maxell MD1 $ 18.95 

Maxell MD2D $ 24.95 

SKC ss/sd $ 13.95 

SKC ss/dd S 16.95 

"Prices per boxes of 10 
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MODERN ROLL PLAYING 

If you can analyze trends as 
shrewdly as we, then you realize that 
player piano sales are at an all-time 
low. So what does a piano roll com- 
pany with 85 years of experience do? 
Convert all that digitized music to 
disk, of course. That's what Q-R-S 
Music Rolls Inc. and Micro-W. Dis- 
tributing have combined to do. 

Q-R-S will make its library of over 
10,000 piano rolls available, digital- 
ly encoded to run on Commodore 
and other popular computers. Re- 
quired is an instrument such as a key- 
board synthesizer (to serve as the 
equivalent of a player piano), equip- 
ped with a Musical Instrument Digi- 
tal Interface (MIDI). Micro-W's new 
Commodore MIDI Interface, which 
plugs into the 64's user port, is the 
lowest-priced ($49.95) available to 
date. Also newly offered is the 1-2 
MIDI Cable ($19.95), which connects 
an instrument used in the described 
configuration to one or two other in- 
struments. 

Micro-W. Distributing, Inc., 1342B 
Route 23, Butler, NJ 07405 (phone: 
201-838-9027). 

REG 

When you review products prior to 
their release, as we try to do, an- 
nouncements of this type are some- 
times necessary, Cardco's OuiG in- 
terface (see page 88, April), their en- 
hanced version of the +G, has been 
renamed the G Wiz. (Whatever the 
product's capabilities, you've got to 
be impressed by Cardco— coming up 
with not one, but two cute titles for 
a printer interface.) 

Cardco, Inc., 300 S. Topeka, 
Wichita, KS 67202 (phone: 316- 
267-3807). 




10,000 piano rolls going floppy. 
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DATABASE PROGRAMS 

The icon-driven E-Files 64 lets the 
user set up a customized database in 
card file format in any of three file 
drawers (each with a 200-record ca- 
pacity). Sort and search by any user- 
defined field, selective printouts, and 
address book format with mailing la- 
bels are all possible. On disk; $20.95. 

VMC Software, RO. Box 326, 
Cambria Heights, NY 11411. 

Designed to manage a home or 
small business bank account, Mega- 
Base I will scan a datafile for checks 
by number, company, or name, de- 
posit listings and withdrawals, append 
or edit existing datafiles, auto-bal- 
ance, and list a block of checks. On 
disk for the 64; $19.95. 

Mega-Systems, P.O. Box 415, 
Spring House, PA 19477 (phone: 
215-855-4451). 

CHARACTER EDITORS 

The uses of the Chared character 
editor range from creating character 
sets for the Greek (or any other) al- 
phabet to designing flying saucers for 
game use. Hi-res and multicolor 



modes are supported. Two sample 
character sets are included. For the 
C-64 on tape ($19.95) or disk 
($22.95). 

APCAD Software, P.O. Box 2673, 
Ann Arbor, MI 48106. 

Font Factory will read in any stan- 
dard Commodore ASCII sequential 
disk file, automatically format it, and 
print the document with the typeface 
you select (eight are provided) in sin- 
gle or double width. On the same 
disk is Signwriter 64, allowing you 
to generate large letter signs up to 40 
characters long, in characters up to 
1 foot in length. Price is $29.95. 

INTEGRATED SOFTWARE 

If you multiply the hundreds of 
thousands of copies of Lotus 1-2-3 
that have been sold for the IBM PC 
by the program's selling price of 
$300-$500, it easily ranks as the best- 
selling computer program of all time. 
This success has inspired three manu- 
facturers of C-64 software to produce 
their own integrated business soft- 
ware, wherein several programs re- 
side simultaneously in memory, al- 
lowing data to be switched back and 
forth. 

Vizastar, like Lotus, provides 
spreadsheet, database, and business 
graphics programs. Menu-driven, it 
allows you to open up to nine win- 
dows to view different parts of the 
spreadsheet simultaneously. As of this 
writing, the program will work only 
with the 1541 disk drive. Price is 
$119.97. 

Solid State Software, 1253 Corsi- 
ca Lane, Foster City, CA 94404 
(phone: 415-341-5606). 

Harmony from International Tri 
Micro also offers spreadsheet, data- 
base, and business graphics programs, 
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You deserve the best. You've earned it. Now reward yourself with a session of Night Mission PI NBALL, 
the most realistic and challenging arcade simulation ever conceived! ■ Stunning graphics and dazzling 

>- • — T~~-\ sound effects put Night Mission PINBALL in a class by itself. Game features: multi- 

',' fii. ^ ' l ball and multi-playercapabifities, ten different professionally designed levels of play, 
EHjHf • v y ^ . and an editor that lets you create your own custom modes. ■ So take a break with 

° * 5 Night Mission PINBALL from SubLOGIC. Winner of Electronic Games magazine's 

**f> |./ 1983 Arcade Award for Best Computer Audio/Visual Effects. 
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and adds a word processor. A win- 
dowing feature allows the user to 
view one set of data while working 
with another. 

International Tri Micro, 1010 N. 
Batavia, Suite G, Orange. CA 92667 
(phone: 714-771-4038). 

Softsync's Trio comprises word 
processor, spreadsheet, and database 
programs. The spreadsheet features 
48K free memory and recalculates 
topologically, similarly to Lotus 1-2-3 
and Multiplan. On disk, with 120- 
page manual/tutorial: $69.95. 

Softsync, Inc. , 162 Madison Ave. , 
New York, NY 10016 (phone: 212- 
685-2080). 

NEW PRINTERS 

For the individual who must own 
the fastest printer on the block, Sa- 
kata's SP-1500 is a safe bet at 180 
characters per second. Despite its 
high speed, the $585.00 serial impact 
dot matrix printer operates at a noise 
level of 60 dB(A). Included are a 3K 
buffer, friction/tractor and reverse 
feed, near letter quality mode and nu- 
merous other special print features, 
and built-in parallel Centronics inter- 
face (serial interface optional). 

Sakata U.S.A. Corporation, 651 
Bonnie Lane, Elk Grove Village, IL 
60007 (phone: 312-593-3211). 

If speed is not important but low- 
cost letter-quality print is, the $295 
Juki 6000 will bang out 10 charac- 
ters per second from a 100-charac- 
ter daisy wheel in 10, 12, or 15 pitch. 
Included are both Centronics paral- 
lel and RS-232C serial interfaces. 

Juki Industries of America, Inc., 
299 Market Street, Saddle Brook, NJ 
07662 (phone: 201-368-3666). 



64 AND PALS 

64 and /Ms' disk and booklet lead 
the beginning user from setting up his 
C-64 through running various types 
of programs. Price: $14.95. 

Abnel Company. P.O. Box 397, 
Grand Junction. CO 81502 (phone: 
303-245-3997). 

TELECOM NEWS 

Through Traveishopper, Compu- 
Serve subscribers can now directly 
access TWA's PARS reservations sys- 




Juki 6000: 
low cost, speed. 
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SP-1500: a 
blistering 180cps. 
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tern to determine the lowest fares and 
most convenient flights-as well as 
make an immediate reservation and 
have the ticket sent to their home, the 
airport, or a designated travel agent. 
Enrollment is free and includes mem- 
bership in TWA's Frequent Flight Bo- 
nus program. The TWA PARS in- 
cludes up-to-date information on do- 
mestic and international flights for 
every published airline schedule in 
the world. 

Additionally, CompuServe will 
combine with Quick & Reilly (the 
nations third largest discount brok- 
erage firm) to offer such online ser- 
vices as price quotes and direct or- 
der entry for virtually every stock and 
option listed in the Wall Street Jour- 
nal and current portfolio and tax rec- 
ords. Most important, clients can buy 
and sell securities 24 hours a day 
(with orders placed during evenings 
and weekends executed at the start of 
the following business day). 

CompuServe Inc., 5000 Arlington 
Centre Blvd., P.O. Box 20212. 
Columbus, OH 43220 (phone: 614- 
457-8600). 

Guide to Modems, an 8-page pam- 
phlet published by Anchor Automa- 
tion, defines basic modem technol- 
ogy and its applications and provides 



suggestions for product selection 
(with an admirable lack of mention 
of their own product line). Copies are 
available at retailers. 

Anchor Automation, Inc., 6913 
Valjean Ave. , Van Nuys, CA 91406. 

VIP Technologies has replaced its 
VIP Terminal with VIP Terminal XL, 
compatible with the C-64 and 128PC 
and featuring X-Modem file transfer 
protocol (to allow transfer of files to 
and from information services using 
same). Price: $39.95. 

VIP Technologies, 132 Aero 
Camino, Goleta, CA 93117 (phone: 
805-968-4045). 

Requiring only a C-64. a 1541 disk 
drive, and a 1526 printer, CAM-64 
(Call Accounting Manager) allows 
businesses to sort outgoing calls by 
station/extension (up to 254), area 
code, common carriers, and other 
categories, each of which may be 
subdivided into number of calls, 
length of calls, etc. Price of autostart 
cartridge, software, and manual is 
$295. 




C— 64 

OWNERS: 



Stop playing "Hide-and-Seek" with 
youf Disk software! Let your commodore 
64" "memory" do all the work lor you. 
with MASTERDISK' Easy Menu- 
Guides make everyone a "pro" in 1 day! 

Here's a small "PEEK" al SOME of the 
POWER of PRODUCTIVITY al your fin- 
gertips . 

■ a SORTED Master Catalog a) ALL your 
Disks: Names, ID'S. File inlo, etc, 

• Search i List an/Fite.'Disk/lDin seconds, 
automatically, in any ol FIVE WAYS 

• Tronsler ML- Programs or Files from Disk 
to Disk (CATEGORIZE your software) 

• Stop disaster belore it strikes: change 
duplicate IDs fast, without total re-copy. 

• Restore accidentally-scratched tiles in 
a flash, with VERIFICATION that they re 
OK. 

• Works with I or 2 Drives (1541-type). 
with or without Printer (Commodore or 
ASCII) 

■ All this • MUCH MORE, for |usl $29,95 

SPECIAL: Handy-Rclerenee Card for 
HEX/ASCI I <Bmary-to. Decimal Values. * 
FORMULAS • only S2 with order (SI for 
all phone orders). 

PLUS: Everybody wants a FAST backup- 
copy orogram How's J MINUTES includ- 
ing Formatting" —and it's FREE with 

MASTERDISK " 

Send Check or Money Order to: 

1NTEGRATED-SOFTWARE 

SYSTEMS 

P O. Box 1801 

Arrtes. IA 50010 

VISA/M C <C O.D. . coll [81 8] 233-2992 

9am-9pm M-F, 9am-l pmSals Sun(Cenlral| 

Add S3 Shipping'plus 52 Foreign, COD 

IA Residents add 4S Sales Tax 
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The first two releases in 
MicroProse's Command Series of combat simulations, re- 
creating some of the greatest battles of the twentieth century. 
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Input Systems, Inc., 15600 Palm- 
etto Lake Drive. Miami, FL 33157 
(phone: 305-253-8100). 

Data Mart, Inc. will publish the 
OPPS Directory of Online Personnel, 
Products and Services, to be updated 
twice a year. Registration for the first 
edition is open until June 30, 1985. 

Data Mart. Inc., P.O. Box 13542, 
New Orleans, LA 70185-3542 
(phone: 504-866-0828). 

NEW GAME RELEASES 

MicroProse's Command Scries of 
combat simulations puts you in 
charge of the great armies of the 20th 
century, in a variety of historical or 
"what if* scenarios. 

The first two releases are Crusade 
in Europe, simulating the Allied 
struggle against Germany from D- 
Day to the Battle of the Bulge, and 
Decision in the Desert, recreating the 
battle between Rommel's Afrika 
Korps and the British 8th Army for 
control of North Africa. The next 
wave will include Sword qfZion (the 
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Arab-Israeli Wars), Blitzkrieg 1940 
(Germany's early-WWII victories), 
and Drive on Moscow (Hitler's inva- 
sion of Russia). For the C-64; $39.95 
each. 

MicroProse Software, 120 Lake- 
front Drive. Hunt Valley, MD 21030 
(phone: 301-667-1151). 

Incorporating light pen technolo- 
gy, the Stack Light Rifle allows you 
to shoot'em-up from as far as 10 feet 
away from the screen. Included are 
six disk-based games: High Noon, 
Glorious 12th, Shooting Galleiy, Ruts 
h' Cats, Escape from Alcatraz, and 
Crow Shoot. Romaro Enterprises, 
North American distributor of the ri- 
fle, will release additional games to 
retail for under $20.00 each. 

Romaro Enterprises International, 
P.O. Box 227, Streetsville Postal Stn., 
Mississauga, Ontario, Canada L5M 
2B8 (phone: 416-820-5235). 

Between April I and August 31, 
Datasoft will mail a $5 rebate to pur- 
chasers of Bruce Lee, Conan, Tlie 
Dallas Quest, Pac Man, Dig Dug, 



Pole Position, Mr. DO!, Zaxxon, or 
Letter Wizard. Rebate coupons can 
be found in appropriately marked 
packages, or with your dealer. 

Datasoft, Inc., 19808 Nordhoff 
Place, Chatsworth, CA 91311 (phone: 
818-701-5161). 

Electronic Arts will award three 
$1000 prizes to those registered own- 
ers of their Adventure Construction 
Set who produce the best games in 
the Fantasy/Medieval, Spy/Mystery, 
and Science Fiction categories. Cop- 
ies of winning games and all other 
entries will be made available to reg- 
istered ACS owners for the cost of 
disk duplication and handling. En- 
tries must be submitted (on disk) by 
January 1, 1986. 

Electronic Arts, 2755 Campus 
Drive, San Mateo, CA 94404 (phone: 
415-571-7171). 

LOW-COST WORD 
PROCESSOR 

The Pagewriter 64 word processor 
features an 80-column scrolling text 
window, onscreen command menus, 
and mail merge option. A column in- 
dicator above the text lines provides 
a visual indication of the position of 
the text being entered. Available on 
disk ($21.95) or cassette ($18.95). 

VMC Software, P.O. Box 326, 
Cambria Heights, NY 11411. 

COMMODORE USER 
SUPPORT 

Good news for Commodore user 
groups: the formation of Commodore 
World, a program designed to pro- 
vide a direct link between Commo- 
dore and user groups around the 
world. Organizations approved for 
membership receive suggestions for 
organization, advertising support, and 
pre-release product news through the 
program's Input/Output newsletter. 

Groups wishing to join should con- 
tact the User Group Coordinator at 
Commodore (215-431-9100); they will 
receive an application, sample by- 
laws, color advertising posters, and 
the first issue of the newsletter. Ap- 
proved groups will receive an access 
code to the Commodore World sec- 
tion of Commodore's telecommuni- 
cations network, additional posters, 




VIDEO BASIC-64 - ADD 50+ graphic and 
sound commands to your programs with this super 
development package. You can distribute free RUN- 
TIME version without paying royalties 1 
ISBN- 0-916439-26-7 $59.95 

BASIC COMPILER 64 - compiles the 

complete BASIC language into either last 6510 

machine language and/or compact speedcode. Get 

your programs into high gear and protect them by 

compiling. 

ISBN« 0-916439-17-8 S39.95 

MASTER-64 - professional development 
package for serious applications. Indexed file 
system, full screen management, programmer's 
aid. BASIC extensions. 100 commands 
ISBN* 0-916439-21-6 S39.95 

PASCAL-64 - full Pascal with extensions for 
graphics, sprites, file management, more. Compiles 
to 6510 machine code and can link to 
Assembler/Monitor routines 
ISBN? 0-916439-10-0 $39.95 



ADA TRAINING COURSE - teaches 
you the language of the future. Comprehensive 
subset of the language, editor, syntax 
checker/compiler, assembler, disassembler. 1204- 
page guide. 
ISBN* 0-916439-15-1 $59.95 

FORTH-64 - loaded with hires graphics, com- 
plete synthesizer control, full screen editor, pro- 
gramming tools, assembler. 
ISBN 0-916439-32-1 S39.95 

C LANGUAGE COMPILER ■ a full C 
language compiler. Conforms to the Kemighan & 
Ritchie standard, but without bit fields. Package in- 
cludes editor, compiler and linker 

ISBN# 0-916439-28-3 $79,95 

ASSEMBLER MONITOR 64 - a 

macro assembler and extended monitor package 
Assembler supports floating point constants. 
Monitor supports bank switching, guick trace, single 
step. more. 
ISBN* 0-916439-11-9 $39.95 



XREF-64 - indispensible tool for BASIC pro- 
grammer cross-references all references to variable 
and line numbers 
ISBNS 0-916439-27-5 $17.95 

OTHER TITLES ALSO AVAIL- 
ABLE - WRITE OR CALL FOR A 
FREE COMPLETE CATALOG 

Call today for the name and address of 
your nearest local dealer. 

PHONE: (616) 241-5510 

For postage and handling include $4,00 
(S8.00 foreign) per order. Money order and 
checks in U.S. dollars only. Mastercard. 
VISA and American Express accepted, 
Michigan residents 
mcl 4% sales tax. 



FREE PEEKS & POKES WALL 
POSTER INCLUDED WITH 
EVERY SOFTWARE PURCHASE 



You Can Count On 
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P.O. Box 7211 Grand Rapids, Ml 49510 - Telex 709-101 - Phone 616/241-5510 
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bulk shipments of the monthly news- 
letter, product brochures, and— far- 
fetched as it sounds— a "reliable" 
telephone contact at Commodore. 

Commodore Business Machines, 
Inc., 1200 Wilson Drive, West Ches- 
ter, PA 19380. 

EDUCATIONAL PROGRAMS 

The Keyboard Chord/Scale Mas- 
ter sharpens the user's keyboard abil- 
ities through a variety of sight and 
sound reinforcements. Chord Display 
and Scale Display let the user view 
and hear the most common chords 
and scales. Chord Review and Scale 
Review include drill, quiz, and com- 
pete options. The Compare mode re- 
quires comparison of one chord with 
another in the same or a different key 
signature. For the C-64; S39.95 plus 
$1.50 postage (MI residents add 4% 
sales tax). 

Valhala Software. 205 E. Hazel- 
hurst, Ferndale, MI 48220. 

Kidbit Software has enhanced two 
previous VIC releases and combined 
them on one disk for the 64. The 



Same/Not Same Game lets children 
build a spaceship by telling the Cen- 
tral Computer which shapes, colors, 
directions, or letters are different 
from the others in the group. Alpha- 
Bee Sequence requires children to 
supply missing letters of the alphabet 
to a forgetful bee. S26.95. 

Kidbit Software, 7001 Sunkist 
Drive, Oakland, CA 94605 (phone: 
415-638-1243). 

The Chipwits are 16 robots which 
children must help through 49 differ- 
ent mazes. They do this by program- 
ming the robots to move, feel, see, 
smell, remember, and more. For the 
C-64: S29.00-S39.00. 

Epyx, Inc., 1043 Kiel Court. 
Sunnyvale. CA 94089 (phone: 408- 
745-0700). 

Wurble incorporates vocabulary 
and spelling training into a compu- 
ter board game for ages 10 up. The 
game editor allows for hundreds of 
rule variations. 

Sher-Tek, P.O. Box 6808, Stn. "J", 
Ottawa, Ontario, Canada K2A 3Z4. 

An elementary through high school 



*FREE* 
UTILITY/DEMO 

DISK 
W/PURCHASE 




CALL 

FOR 

QUOTES 



95 



PRINT SHOP 

BANNERS. GREETING CARDS. 
POSTERS. LETTERHEAD, PRINTS 
(EXCEPT 15261 

EXPANSION SET 



DOODLE 33 

GRAPHICS PROGRAM DRAW. COLOR. 
CIRCLES BOX. LETTERS. PRINT 
ON OOT-MATRIX PRINTER 
(EXCEPT 15261 

NEW** 

Doodle Visits Print Shop 

CONVERT DOODLE PICTURES FOR USE IN PRINT SHOP 
(SCREEN MAGIC) VICE/VERSA. MENU DRIVEN. 

DOODLE, PRINT SHOP, DVP SPECIAL* 

DVPWITH PURCHASE OF DOODLE OR PRINT SHOP 



BUSCARD II 
IEEE. 4 BASIC MONITOR 
SWITCH SELECT DEVICE 4-10 
IEEE or SERIAL BUSS 

C-64 LINK II 

IEEE 4.0 BASIC 
SERIAL and/or IEEE 
FAST IEEE ACCESS 
TRANSPARENT 

covox 

COMPUTER EYES 



00 



140' 



125° 



77 oo 
105 00 



SYSRES 

BASIC EDITOR 
COMPLETE RENUMBERING DEFINE KEYS. 
FUNCTIONS. SCREEN DUMP, FINDS. 
CHANGES. RELOCATABLE. WORKS EVEN 
AFTER RESET. 
"THE CADILLAC" MICRO MAG. 



3? 95 

CALL 

19 95 



79 95 
13 95 

79 95 



FLEXFILE 2.2 

MULTIPLE KEYS 
EASY TO USE 

SFD1001 

IMEG- IEEE DRIVE 



-To Order: CALL or WRITE - 



P.O. Box 391 White Plains, NY 10602 



TERMS:Send check or money order (or lolal 
purchase price, plus S2.75 for shipping via 
UPS, S4.00 lor shipping non UPS. Personal 
checks (allow 1 days to clear). 
NY RESIDENTS ADD APPLICABLE TAXES 



S9 95 
400 00 



SOFTWARE LINK 

283 Mamaroneck Ave. 

White Plains, NY 

(retail outlet) 



914-683-2512 




Same/Not Same Game: for ages 3 to 7. 
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teacher's guide. The Investors Chal- 
lenge is designed for use with Blue 
Chip Software's Millionaire stock 
market simulation. Tycoon commod- 
ity market simulation, and Baron real 
estate simulation. Price is $6.95. 

Blue Chip Software. Inc., 6744 
Eton Avenue, Canoga Park, CA 
91303 (phone: 818-346-0730). 

SOUNDCHASER 64 

Passport MusicSoftware's $199.00 
Soundchaser 64 is the first four-oc- 
tave music keyboard for use with the 
64. Included is software that trans- 
forms the 49-note music system into 
a full nine octave range, as well as 
allowing the user to create a variety 
of instrument sounds for either a 
monophonic or polyphonic keyboard . 
The keyboard can be used with Pass- 
port's Macmiisic ($49.95). which pro- 
vides a visually oriented music com- 
position system. 

Passport also distributes a line of 
Computer Sheet Music, allowing a 
student to play at his own pace while 
the onscreen notes he plays correct- 
ly change in color. 

Passport Designs, Inc., 625 Mira- 
montes Street, Suite 103. Half iMoon 
Bay, CA 94019 (phone: 415- 
726-0280). 

MASTERDISK CHANGE 

In February's Scuttlebutt we an- 
nounced Masterdisk, which compos- 
es a master catalog of your disk li- 
brary. Since then. Integrated-Software 
has discovered that the 4-minute 
backup program included on the disk 
was pirated from a copyrighted Ger- 
man program. Taking its place will 
be Copy 18, which will copy track 18 
(the disk directory) from any disk and 
make modifications. 
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WHEN YOU BUY 

TIMEWORKS SOFTWARE 

YOU GET MORE 

THAN SOFTWARE. 



You get our Customer 
Technical Support Team 

At the other end of our toll-free hotline, 
you'll find our full-time Customer Techni- 
cal Support Team. With Timeworks, you 
get immediate answers . . . free of charge 
to all registered users. Our Timeworks 
experts help you use each of our pro- 
grams to its fullest potential. Not everyone 
provides this necessary support, let alone 
for free. 




Timeujcs*5 






You get our liberal 
Trade-Up Policy 

If, at any time in the future, you wish to 
buy an updated version of any Timeworks 
program, or if you upgrade your computer 
system, you may exchange your original 
program for any other program we 
publish. Here's how: 

• Purchase your new Timeworks program 
at your favorite dealer. 

• Send us the Timeworks program you 
wish to trade in, your paid receipt for 
the new program, and the title of the 
Timeworks program you would like in 
exchange. It's FREE OF CHARGE, if 
the suggested retail price of both pro- 
grams is the same. Or, include your 
check or credit card number to cover 
only the retail price difference between 
your old program and the one you wish 
in exchange. Please add $4.70 for 
shipping and handling, in either case. 

• We'll be glad to furnish a list of 
Timeworks' suggested retail prices, 
upon request. 



You get our Money Back 
Guarantee 

If you can find anything that works better 
for you, we'll buy it for you. Simply send 
us your Timeworks program, your paid 
receipt, and the name of the program you 
want, along with your check or credit card 
number for any retail price difference. If 
it's available, we'll send it to you.* 



Look for these and other Timeworks pro- 
grams at your favorite dealer, Or contact 
Timeworks, 444 Lake Cook Road, Deer- 
field, IL 60015. Phone: (312) 948-9200. 



Available for Apple, IBM, Commodore, 
and Atari computers.** 




More power for your dollar 

Otter valid (or 90 days from dale of purchase. 
' Registered trademarks of Apple Computer, Inc., frilemational Business Machines Corporation, Commodore 

Computer Systems, and Atari, Inc. 
: 1985 Timeworks, Ina All rights reserved. 




By The TCar 2000,the world 
„ May Catch Up With The Way 
CompuServes Electronic Mall 
Lets You Shop Today. 



Presenting the computer 
shopping service that delivers 
discount prices, name-brand 
merchandise, and in-depth 
product information. 

To make your computer even more 
useful, join CompuServe and shop in 
our Electronic Mall. Easy enough for 
beginners, it's open 24 hours a day, 
7 days a week. And it offers a wide range 
of goods and services from nationally 
known stores and businesses including 
Bloomingdale's, Waldenbooks, American 
Express and Commodore. 

CompuServe's Electronic Mall'" lets 
you shop at your convenience in all 
these departments: 

The Auto Shop, Book Bazaar, Finan- 
cial Mart, Leisure Center, Merchandise 



Mart, Newsstand, On-line Connection, Per- 
sonal Computer Store, Record Emporium, 
Specialty Boutique and Travel Agency. 



Take the CompuServe Electronic 
Mall 15-Minute Comparison Test. 

What you can do in 15 minutes 
shopping the Electronic Mall way. 

• Access descriptions of the latest in 
computer printers, for instance. 

• Pick one and enter the order 
command. 

• Check complete descriptions of 
places to stay on your next vacation. 

• Pick several and request travel 
brochures. 

• Access a department store catalog 
and pick out a wine rack, tools, 
toys. ..anything! 

• Place your order. 

What you can do in 15 minutes shop- 
ping the old way. 

• Round up the family and get in 
the car. 



The Electronic Mall — A Valuable 
Addition to the Vast World of 
CompuServe. 

CompuServe Information Services 
bring you information, entertainment, 
personal communications and more. 

You can access CompuServe with 
almost any computer and modem, 
terminal or communicating word 
processor. 

To buy a CompuServe Subscription 
Kit see your nearest computer dealer. 
To receive our informative brochure, or 
to order direct, call or write: 

CompuServe 

Information Services, P.O. Box 20212. 

5000 Arlington Centre Blvd.. Columbus. OH 43220 

800-848-8199 

In Ohio call 614-457-0302 



The Electronic Ma]l" Ls a service of CompuServe Inc and L M Berry A Company, 
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Integrated- Software Systems. P.O. 
Box 1801, Ames, IA 50010 (phone: 
515-233-2992). 

VCR TITLE GENERATOR 

The Video Title Editor lets C-64 or 
VIC 20 users incorporate title screens 
into their video tapes without the 
need for a camera, second VCR, or 
high-priced character generator. In- 
cluded are over 20 displays for birth- 
days, weddings, vacations, and more. 
Customized displays can also be de- 
signed. Price is S29.95. on either cas- 
sette or disk. 

Videoware, 19777 W. 12 Mile Rd., 
Suite 180, Southfield, Ml 48076 
(phone: 313-626-7208). 

HANDICAPPING PROGRAM 

The Racing Analysis Program 
Package includes Thoroughbred, 
Harness, and Bet Return programs 
which make predictions based on past 
performance data. About five min- 
utes are required to enter the data for 
each race. For the 64 or VIC 20, on 
cassette or disk; $29.95 plus $2.00 
postage from Software Exchange, 
P.O. Box 5382, W. Bloomfield, MI 
48033 (phone: 313-626-7208). 

WILL WRITING SOFTWARE 

By simply recording your answers 
to a series of questions, the Wiilwril- 
er disk/software package generates 
and prints a will (good in every state 
except Louisiana) and provides you 
with information on signing and wit- 
nessing. You may update your will an 
unlimited number of times. For the 
C-64; $39.95. 

Nolo Press. 950 Parker St., Berke- 
ley, CA 94710. 

ASTRONOMY SOFTWARE 

For readers who thought Commo- 
dore's Sky Travel went where no pro- 
gram had gone before, a list of 45 as- 
tronomical software programs has 
been published by the non-profit As- 
tronomical Society of the Pacific. A 
list of reference books is also in- 
cluded. Send a $1.00 donation to cov- 
er postage and handling to A.S.P. 
Computer List, 1290 24th Ave. , San 
Francisco. CA 94122 (phone: 415- 
661-8660). 





The Paper 
Catcher will 
provide a 
convenient 
landing 
place on top 
of your 
printer for 
continuous 
feed paper. 
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THE BUDDY SYSTEM 

The Paper Catcher ($49.95) stacks 
printed sheets of continuous-feed pa- 
per neatly atop a variety of 80- and 
132-column printers. Vinyl feet pro- 
vide added stability. Built of light- 
weight, high impact plastic, its putty 
color will blend in with most hard- 
ware. 

Buddy Products, 1350 South Leav- 
itt St., Chicago, IL 60608 (phone: 
312-733-6400). 



FAST LOAD LOWDOWN 

From the research lab of Ahoy! 
writer Cheryl Peterson comes the fol- 
lowing addendum to last month's ex- 
amination of Fast Load from Epyx: 
Commodore computers interfaced to 
a printer through certain parallel 
boxes will not be able to use the pro- 
gram's quick copy function. A tech- 
nical support person at Epyx ex- 
plained that Fast Load requires all the 
data lines, rendering it unoperation- 



rorTlP' ete L specie* 

C *-„ Q Svs^ ern * t\\ business 

l«we a1«' ona 

> «*•* .■■,riesW*= ome 



SOFTWARE 
DESIGN. INC. 

1945 Mitchell Avenue • P.O. Box 570 • Waterloo, lorn 50704 
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EVALUATES FROM RACING FORM! 

Gender Post |Today| 

i Jockey (Today! Post lLasi) 

mon Jockey (La si 1 Si it 

■stency Length Trainer 

ngs Time or Year Workouts 

And gnes you GRAPHIC REPRESENTATION ol lirush 
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PROGRAM 

GLD. Thoroughbred "Gold" Edition™ . 

A "Full" featured Ihoroughbred analysis designed (o» ih& pioles 

sional and serious nov.ce $159.95 complete 

EGLD. Enhanced -Gold" Edition™ 

Gold" Edition with complete Master BoiiorTM system iniegrateQ 
onlc the sane disk Tins powerful program will transfer an horses 
and scores 10 ihe Ml analysis win a "single keystroke 

(Master BetioiTM includ&di S199.95 complete 

GLTD. Limited "Gold"™ 

Enables Professional Hindicippeti to assign specific values toiha 

racing variables they" leel are important 

PROFESSIONAL HANDICAPPING SYSTEMS 

% 

Age 5 

Crass 15 

Condition 10 

Earnings 5 

I00*fc Is Everyllung OK (Y'N) 

Creaie program weighi based on a particular naO and fine tune n 
lor maximum *m percenlacje Trus program is designed tor "esse 
o! use" The user needs no programming experience 

[contains Iniegiated Bettor TM> $299.95 complete 



GD. Gold Dog Analysis™ 
The only professional dog handicapper on Ihe markel includes 
i| Speec 6} Condition 

2) Post Today 7] Punning Style 

31 Kennel 8] We^ht 

■t) Posi Last 9) AN ne* internal woighlmg 

Si Distance lQ| NEW class irtdicatot 

II you are rear a greyhound liac* you Can'f atttxrf no! to use this 
Si 49.95 complete 
(wilt: integrated Masloi Bettor TM] $199.95 



Con&islenc-y 15 


Speed 10 


Jockey 5 5 


Workouts 


Tramer & 


Time ol Year 


Past 10 


ConsiMency 5 



Limited Dog™ S299.95 



j«* 



MHH. Master Harness Handicapper™ 

ProlessionaJ software designed Id provide a Ihorough analysis of all 
irotter and pacer races in North America and Canada Peatuies 
Class Pest Positrons Time Finish 

Driver Track Conditions Time Last Quarter 

Days Smce Last Trainer Track flaimg 

Gender Time H Temp Allowance 

ntegratod Waster Bettor 1U S199.95 



^ 



Si 59.95 complete 

PPX, Professor Jones" Football Predictor, Pro*. Pin™ 
Complete Football Analysis wUi Data-Base. 

1) Overlays 4) "OveiJUndar bets 

2) Pomt Spreads 5) Data Base Stals 

3) Super Plays ' 6) Holds 100" teams 
Highest percentage ol dinners 1983 S39.95 compete 

S99.95 with Da:a Base Management 
NBA. Basketball™ 

Tnis data base managed analysis *»M provide (he use' w!h all 
Setting situations wrW* sionng relevant iniormation on Oe d*sk 
599-95 complete w/Manuai S129.95 NBA/College Version 

LOT. LOTTERY ANALYSIS™ 

Statistical comparison program designed to detect subtle patterns 

m winntng lottery numbers 

579.95 complete wwManuaJ S99.95 wiih Lotto 



BROCHURE AVAILABLE 



Send check / money order / VISA / Maslercharge 



(Include expiration date) to: 



TELEPHONE 

(203) 342-S939 



Prof. Jones 
1940 W. State St. 
Boise, ID 83702 



TERMS FREE SHIPPING ALL SOFTWARE Adfi S6 00 hard- 
ware I S6.00 C O.D I UPS Blue S6 00 I Out ol Country 59 CO 
/ ID Residents 4 c t < 3 weeks personal checks ' Cash price 
only. add 2^ Visa. MC / Prices subjecl ro change 



IBM, APPLE, TRS-80, 
C-64 AND OTHERS 
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al with certain interfaces. Two of the 
primary offenders, unfortunately, are 
also two of the most popular: Card- 
co and the (Orange Micro) Grap- 
pler. 

The documentation also fails to 
point out that a Commodore 1541 
must be used; Fast Load will not 
work with an MSD, Indus GT, etc. 
Finally, don't misunderstand Epyx' 
claim that the program will work with 
most copy-protected software. It will 
run most copy-protected software. It 
will not copy it. 

Epyx, 1043 Kiel Court, Sunnyvale. 
CA 94089 (phone: 418-745-0700). 

BOOK RELEASES 

The Compute/facts series from 
Howard W. Sams & Co., Inc., re- 
veals the inner workings of Commo- 
dore hardware with wiring diagrams. 
photos, disassembly instructions, 
parts lists, troubleshooting tech- 
niques, and other repair data. Avail- 
able for the C-64, C-16, Plus/4. VIC 
20, 1525 printer. 1701 monitor, or 
1541 disk drive; $19.95 each. 

Also newly released, the Commo- 
dore 64 Troubleshooting and Repair 
Guide covers proper diagnostic tech- 
niques and lists specific malfunctions 
in trouble charts organized by com- 




Computerfacts series: diagnostic aid. 
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puter subsystem. List price is $18.95. 
Finally from Sams, Commotiore 64 
for Kids from 8 to 80 works hands-on 
with the new user to create simple 
programs. Numerous illustrations are 
included. Price is S12.95. 



A catalog of 347 book titles is 
available from Howard W. Sams & 
Co.. Inc., 4300 W. 62nd St., Indi- 
anapolis. IN 46268 (phone: 1-800- 
428-SAMS or 317-298-5400). 

Four new C-64 publications from 
Prentice-Hall: 

Easy Interfacing Projects for the 
Commodore 64 (S10.95) provides 
dozens, ranging from mechanical ac- 
tuators to analog-to-digital convenors. 

Mid tiplan for the Commodore 64 
($14.95) offers a tutorial and over a 
dozen home and business applica- 
tions (with listings). 

With an emphasis on graphics gen- 
eration, Advanced Machine Code 
Programming for the Commodore 64 
($12.95) explains how to tap into the 
64's 6502/6501 microprocessor. 

More BASIC Is Child's Play. Com- 
modore edition ($1995) picks up 
where its precursor left off, teaching 
children as young as 7 to program. 
Prentice-Hall, Englewood Cliffs. NJ 
07632 (phone: 201-592-2640). 

Einstein's Beginner's Guide to the 
Commodore 64 (S7.95) provides a 
general introduction to computer use 
and programming, Harcourt Brace 
Jovanovich, 1250 Sixth Ave., San Di- 
ego, CA 92101 (phone: 619-231-6616). 

Understanding Microprocessors 
($14.95) covers software, program- 
ming concepts, assembly language, 
and applications of 4-, 8-, and 16-bit 
microcomputers. Texas Instruments 
Inc., P.O. Box 225474. M/S 8218. 
Dallas. TX 75265 (phone: 214- 
997-3926). 

IT WRITES THE SONGS 

Cantus, the Music Improviser pur- 
ports to be the first microcomputer 
program that invents its own music. 
Instead of notes, the user enters 
choices for tempo, harmony, rhythm, 
counterpoint, voice range, and tone 
color, from which Cantus creates 
three-voice improvisations which play 
continuously with no repetition. Each 
set of choices becomes a "patch" 
which can be saved and later recalled. 
Price is S54.00 plus $2.00 postage 
and handling. 

Algo-Rhythm Software. 176 Min- 
eola Blvd.. Mineola. NY 11501 
(phone: 800-645-4441 or 516- 
294-7590). 



TOWEHS OfttAHOI 



FORTHEC-64 



S~~ t the time of creation, the 
god Brahma placed sixty- 
four rings, ranging from 
_ smallest to largest, on the 
first of three golden towers in the 
temple of Benares. He enjoined his 
priests with the task of moving the 
rings, being careful never to place a 
larger ring atop a smaller, until the 
rings were placed in like manner on 
another tower. When this has been 
accomplished, in about six hundred 
billion years, the universe will come 
to an end. Such, at least, is the legend. 

Actually, Edouard Lucas, who in- 
vented the Tower of Brahma puzzle, 
devised this story to popularize his 
creation. The puzzle has been a fa- 
vorite for several generations. Now 
you can try your skill on a less for- 
midable (though equally challenging) 
version using your Commodore 64. 
You may select to attempt from two 
to eight rings. Each additional ring 
represents a doubling in difficulty. To 
move two rings requires three moves; 
three rings, seven moves; four rings, 
fifteen moves; eight rings, two hun- 
dred fifty-five moves. The number of 
moves is determined by the formula 
2 I (number of rings)— 1. Assuming 
the priests of Brahma moved one ring 
each second, it would require (2 t 
64) =1 seconds, or about six billion 
centuries, before the smallest ring 
would be placed on top of the tower. 

With up to four rings, the puzzle 
is fairly easy to solve. After that, 
though, you must plan your moves 
carefully in order to complete it in 
the minimum number of moves. To 
end the puzzle, press 'fl'. Also, if you 
become completely baffled, again 
press 'fl' and you will be asked 'Com- 
puter Solution (Y/N)?" Answer 'Y' 
and the puzzle will reset and solve 



itself. The rings will begin to magi- 
cally float across the screen and po- 
sition themselves from one tower to 
the next until the final orientation is 
achieved. 

The three towers and their base are 
built from keyboard character graph- 
ics in lines 2150-2240. Each ring is 
a sprite defined within lines 1990- 
2050. The DATA lines for each sprite 
show a way of conserving memory. 
The interpreter automatically READs 
a value of zero if a value is not en- 
tered. Another handy (though seldom 
used) command in the program is 
FRE(0). Normally, this function is 
used to calculate the amount of free 
RAM available for a program and its 



variables. In a program which creates 
and manipulates strings such as Tow- 
ers, it performs a more valuable ser- 
vice. String values created during the 
course of a program run are stored 
in upper memory one beneath an- 
other until space is depleted. At this 
point, the process of garbage collec- 
tion begins and may take several min- 
utes, during which time the program 
stops and the keyboard is dead. Us- 
ing a statement such as CT=FRE{0) 
forces an immediate garbage collec- 
tion. Since this is done on each move, 
the number of strings that have ac- 
cumulated is small and the process 
is instantaneous. □ 
SEE PROGRAM LISTING ON PAGE Ul 



POSTURE SUPPORT 



THE BACK CHAIR 



ON SALE 



* 




Tfce First ■lirteHi&ent" Chiir, FORMERLY SS9.95! Now on safe 
Iroin 529.95. nEDUCf THE EFFECT OF GRAVITY ON YOUR HACK 

Siding regjJarly m a conwntwnal chair your lower bad< is sup- 
porting the TOTAL WEIGHT of your body, plus additional wetght due 
to the downward effect of gravity Unfortunately mos* chairs are de- 
signed lot appearance, not for comfort. 

THE BACK CHAW SOLUTION— Sin^ng on me Bacfc Chair re- 
lieves your back from supporting the total weight of your body by 
distribulirirj your weight between your lower back and legs ftur Iwjs 
support you when standing, your lower back supports you when sitting. 
Comtxne them tMtfi in a comlprtable sitting posture and you relieve 
the unnecessary stress on your back. When srtting on the Back 
Chair you'll feel more relaxed and sit up perfectly straight 

Standard Chair made of hardwood layeig wtlh final layer of 
Genuine Oak. Adjustable Chair made from solid hardwood with 
beautiful Oak Ftaisfc Both come with padded seal and knee pads 
upholstered m Chocolate Brown Dealer and Hep Enquiries Invited. 



SHOP FASTER BY PHONE 
1 -805-966-7187 

Of send a check rx yojc credit cad b (Diner's Dub. V&A. MasferCar fl. American 
Ei-piess) «? THE BfiCA CHAJR (SUntfafrJ Model. S?9 95 ea. AdjustaHe MwWL 
$49.95 ei-pi£t$e inrJwatc t»Ho*j piu& $995 5htppm<i) rC-araadi^n outers. St3 00 
shipping) Cft residents add €ifc sate tax Sorry mi COD. it not satisfied re- 
tum wtllin lb days to refund {less stopping) 



ITEM NO. 


GUAM. 


ITEM 


PS ICt E*. 


SHIPPING 


T0TA1 


825 




Stan BACH CHAIR 


S25 .j5 






aoa 




Adj. BACK CHAIR 


Si'j . 





SmRSMNEGrXXJP 

81GB S% SHA Depl BCJ1S. Santa Baitora, CA 93101 
Amtfcts Prenrtjm DhkI Mail HotSe How In Ouf 9tfi *.v 
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QNTMEVICAND64 

4 m hen the Commodore 64 first came out, 

I ^k P one of its most touted feamres was the mu- 
\/ \j sic capability. I had programmed on the 
¥ V Atari, and naturally I was a little skeptical 

about the 64's three voices— didn't the Atari havejfewr? 
Then I heard what the 64 could do with sound envel- 
opes and waveforms, and I was willing to forgive the miss- 
ing voice for the great improvement in quality. 

Trouble was, all that wonderful sound was locked away 
from the BASIC user in a series of POKEs. They didn't 
give Commodore BASIC a SOUND statement compar- 
able to the Atari's, which set the pitch, the distortion, 
and the volume in a single fast statement. 

Instead, you have to set up the sound envelope and gen- 
eral volume in advance, and then each time you want 
to change the pitch or sound a new note, you have to: 

1 . Set two frequency registers for each voice. 

2. Gate each voice open to begin its tone. 

3. Gate each voice closed to stop. 
Since every single one of these steps is a POKE, a 

notoriously slow command in Commodore BASIC, start- 
ing and stopping a single three-note chord takes twelve 
POKEs and far, far too much time. 

About a year ago, I got a PCjr and, despite that ma- 
chine's many drawbacks, I saw for the first time what 
a humane music program system could be. 

Don't misunderstand— the Commodore 64 still has far 
and away the best sound chip on the market. The SID 
hasn't been matched by anybody. 

But the PCjr has a mini-language for playing music. 
All you do is set up a string that contains the letters for 
the musical scale -C, D, E, F, G, A, and B- along with 
instructions about sharps and flats, octave changes, and 
the duration of the note, and BASIC plays the string. It 
even does it in the background, so that your program 
can go on long before the music's over. 

All this seemed to me to be one more proof of the terri- 
ble conspiracy of the computer manufacturers. Take it 
from me, they ail get together once a year and have a 
meeting like this: 

COMMODORE: Look, we've got the best sound chip 
on the market in our new computer. You guys can't com- 
pete with it. 

ATARI: That's OK- as long as you make your screen 
display all fuzzy and leave us as the only computer with 
a decent TV display, we'll let you have better sound. 

IBM: You can have sound, Commodore, and you can 
have video, Atari. What we'll do is put superb sound and 
graphics commands into our BASIC. Real easy-to-pro- 
gram stuff. Atari, you can have a SOUND statement, 
but don't make it too easy to use. And you, Commodore, 
= you can't do anything for them. Just a bunch of POKEs. 



7 



Or 



SOV» 



AHOY! 19 



pboepix Reo 



,; : 



S F T W A R ,£, 

\ 



4 



\: 



7PT 



/ 



^ 



>7 

i/ 



- 



- 





J/Y 
ADVENTURE GAME 






TUTORIALS 






Disk 1 


Disk II 




Disk III 


TEXT ADVENTURES 


MEGAVENTURES 




GRAPHIC ADVENTURES 


ZORK I 


ULTIMA II 




GOTHMOGS LAIR 


ZORK II 


ULTIMA III 




MASK OF THE SUN 


ZORK III 


ULTIMA IV 




DEATH IN THE CARIBBEAN 


ENCHANTER 


RETURN OF HERACLES 




BLADE OF BLACKPOOLE 


SORCEROR 


QUESTRON 




CRITICAL MASS 


STARCROSS 


Only $9.99! 


GRUDS IN SPACE 


SUSPENDED 




ULYSSES AND THE GOLDEN FLEECE 


PLANET FALL 






WIZARD AND THE PRINCESS 


DEADLINE 






ASYLUM 


WITNESS 






THE INSTITUTE 


Only $9.99 ! 




Only $9.99! 



Have you ever played an Adventure Game where you just plain got stuck and couldn't get any further? 
Well, here's the answer — Phoenix Red's Adventure Game Tutorials. They can be used as hints or they 
will tell you exactly what to do to get out ol all those sticky situations. These Tutorials are written for 
your computer (A Commodore 64) not someone elses. so they work. 



We pay postage and handling. 
A must-have for all adventures. 
Order yours today ! 



Send check or Money Order to: 

Phoenix Red Software 

2705 Oak Dr. 
Houston, Texas 77539 

Call 713-280-8113 for more info. 

Reader Service No. 270 



"We put out money where our 
software is, not our copy 
protection " 

— Phoenix Reo 



COMMODORE: That's fine. We'll still sell five for 
every one of yours. 

THE ALL-PURPOSE MUSIC ROUTINE 

Are you going to sit still for that kind of collusion? 
Am I? Not a chance. 

Instead, in this months column I bring you Card's All- 
Purpose Music Player. To use this routine, you save it 
and then load it in at the beginning of your program- 
ming session. It uses up line 10, lines 60-70. and lines 
9000-9990. Then you write your program around it. Put 
your movement routine in lines 20-50, for instance, and 
your main loop at 100. Program, in other words, just like 
normal. 

Whenever you want to play a tune— or part of a tune- 
have your program GOSUB 60, and a phrase of the tune 
will play. 

STRINGING ALONG 

Best of all, to enter the melody, you don't have to cal- 
culate all the frequency values for the notes you're us- 
ing, or set up a bunch of DATA statements. Instead, you 
enter each phrase of the music as a string, using the stan- 
dard musical alphabet -the scale C, D. E, F, G, A. and B. 

This means that you can transfer a song more or less 
directly from sheet music or, if you're good at music, 
right out of your head. All you have to do is divide the 
melody into a series of usable chunks, called "phrases." 
Each phrase can be as long as 255 characters, but for 
sheer practicality you'll probably break the music up into 
much shorter phrases. 

The note strings are set up starting at line 9500 in all 
three versions of the program included here (TJiree-Voice 
Player, One-Voice Player, and Broken Melody). 

Line 9500 tells how many voices you're going to use. 
minus 1. That means that for three voices, you type 
EV%=2; for two voices, you type EV%=1. (One-Voice 
Player has no line 9500, since only one voice is possi- 
ble with this version of the routine. This allows it to be 
streamlined, and the music can play much faster.) 

In line 9510, the variable ES% is set to the number 
of phrases in the song, minus 1. That means that if your 
song has 9 phrases, you will type ES%=8. 

Starting at line 9520, the actual music strings are set 
up. There are three string types for each phrase: 

Duration. MD$(PH) sets the duration for each note 
in the phrase. This is the same for all three voices— the 
three voices must each execute exactly the same number 
of notes (or rests) per phrase. The duration string con- 
sists of numerals from to 9. is the shortest duration, 
and 9 is the longest. By changing, say, the fifth number 
in the MD$(PH) string, you change how long the fifth 
note of that phrase will sound. 

(These duration numbers are used as an index into a 
duration array, DU%( ). which is set up at lines 9200 
and 9210. If you want to change how long a duration 1 
lasts, just change the second number in the DATA state- 
ment in line 9210.) 



Melody. ME$(PH,VC) sets the pitch or frequency for 
each note in the phrase, with a separate string for each 
of the three voices. The notation is very simple. To play 
the note A, type A. To play the note B, type B, and so on. 

To play sharps, type the letter while holding down 
SHIFT. For instance, to play F-sharp, hold down SHIFT 
and then type F. A graphics character will -appear in the 
string. 

To play flats, type the letter while holding down the 
COMMODORE logo key. To play B-flat, hold down 
COMMODORE and then type B. Again, a graphics char- 
acter will appear in the string. 

To make the voice silent for one note, type the @ sign. 

Octave. MV$(PH,VC) sets the octave in which the note 
will be played. There are eight possible octaves, from 
(the lowest notes) to 7 (the highest notes). Each posi- 
tion in the MV$(PH,VC) string corresponds to that voice's 
note in the melody string. 

In other words, the octave string MV$( ) determines 
which octave a note will be in, and the melody string 
ME$( ) tells which note within that octave will be played. 

If several notes in a row are in the same octave, you 
only have to enter the octave number for the first note, 
and then enter spaces for the subsequent notes. There- 
after, for that voice, you need only enter octave num- 
bers when the octave changes. 
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RESET SWITCH 



Only $19.95 




•BASTC RECOVER PROGRAM INCLUDED 
•Unlocks "Frozen" Programs 
•Plugs Into Serial Port 
•Allows Full Use of Serial Port 
•Extends the Life of Your Computer 
•Compatible With Commodore €4 and VTC 
•1 Year Warranty 



HAIL CHECK OH MONEY ORDER TO: 
CA Residents add 6% sales tax 
51*51 for shipping 



HICROYATIOMS 

16496 BERNARDO CTR. DR. 

SUITE 305 

SAN DIEGO, CA 92128 



AEDRESS_ 
CITY 



Dealer Ingui res Welcomed Phone (619} 487-5107 
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Each octave consists of the notes from C up to the next 
B. That means that if your melody string consisted of 
an F-major scale, played in voice 0, and you wanted the 
scale to play very quickly, your strings would be typed 
like this: 

Duration: MDS(PH) ="00000000" 
Melody: ME$(PH,0)="FGABCDEF' 
Octave: MV$(PH,0)="4 5 

Notice that there are the same number of characters 
in each string in the same phrase. (The B would actu- 
ally be a B-flat, and you would type COMMODORE-B.) 
The octave changes when the scale goes up from B-flat 
to C. In other words, C is the lowest note of each octave. 

(You can cheat, however, and type C-flat. which gets 
you a B in the next octave down without changing oc- 
taves. Likewise, you can type B-sharp and get the C from 
the next octave up. But why bother?) 

PLAYING AROUND 

This is really all you need to know to use this routine. 
All three programs use the same fundamental routine, 
with only a few changes, so once you've typed in one, 
it will be relatively easy to make the changes for the other 
programs {One-Voice Player has the most differences). 



Program Your Own EPROMS 



t 



VIC 20 
C64 



$99.50 




T> 
(13 
C 

E 


a 




PLUGS INTO USER PORT. 
NOTHING ELSE NEEDED. 
EASY TO USE. VERSATILE. 

• Read or Program. One byte or 
32K bytes! 

OR Use like a disk drive. LOAD, 

SAVE, GET, INPUT PRINT, CMD, 

OPEN, CLOSE— EPROM FILES! 

Our software lets you use familiar BASIC commands to 

create, modify, scratch files on readily available EPROM 

chips. Adds a new dimension to your computing capability. 

Works with most ML Monitors too. 

• Make Auto-Start Cartridges of your programs. 

• The promenade" 4 C1 gives you 4 programming voltages, 
2 EPROM supply voltages, 3 intelligent programming 
algorithms, 15 bit chip addressing, 3 LED's and NO 
switches. Your computer controls everything from software! 
Textool socket. Anti-static aluminum housing. 
EPROMS, cartridge PC boards, etc. at extra charge. 
Some EPROM types you can use with the promenade'" 

2756 253? 462732P 27128 5133 X2816A" 

2516 2732 2564 27256 5143 528 IT 

2716 27C32 2764 68764 2815' 4B016P' 

27C16 2732A 27C64 68766 2816' 

-CoiTOMloe 8usm»sJ moiim ■OMiotB tixMott ««™K typo. 



Call Toll Free: 800-421-7731 or 408-287-0259 
In California: 800-421-7748 

EH JASON-RANHEIM 
3 580 Parrott St., San Jose, CA 95112 
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To use the routine, all you need to do is type in your 
own songs— setting the values of EV%, ES%, and the 
duration, melody, and octave strings for every phrase and 
voice. Then whenever your program executes GOSUB 
60, the routine will play the next musical phrase. 

There are other changes you can make, however. Lines 
62 and 68 can be altered by REMing one and executing 
the other, to switch from normal to staccato; or you can 
REM them both and get a legato sound (or nothing at 
all, depending on your ADSR envelope). 

You can also experiment with different duration val- 
ues at 9210. One limitation, though, is that you can't get 
any faster than 0. Since this is a BASIC program, not 
machine language, and we're still using those POKEs, 
there's a limit to how fast you can go. The ideal music 
system uses machine language routines during the verti- 
cal blank interrupt— but this is a teaching column, not 
a software column, and so we'll stick with BASIC. 

You can also change the elements of the ADSR envel- 
oped by altering lines 9020, 9030, 9040, and 9050; and 
you can change the waveforms in line 9070. Next month 
I'll get into much more detail about how waveforms and 
envelopes are used, and we'll experiment with some sound 
effects; for now, though, you can make your own experi- 
ments by changing one or two parameters at a time. 

The three programs show some of the things you can 
do. Three-Voice Player plays God Save the King (My 
Country, Tis of Thee) using a stately organ tone. One- 
Voice Player plays The Mexican Hat Dance at top speed, 
with a harpsichordlike hammered-string sound. Broken 
Melody plays I'm on My Way (from the musical Paint 
Your Wagon by Alan Jay Lerner and Frederick Loewe), 
using a fife sound for the melody line and a plucked-vio- 
lin sound for the accompaniment. 

Have Patience. When using the three programs, re- 
member that in order to make the running time for the 
music very quick, most of the work is done during the 
execution of the setup routine at 9000. Especially time- 
consuming is the conversion of the strings from musical 
notes to values that music routine can use efficiently. A 
song as long and complex as the one in Broken Melody 
takes a couple of minutes to be ready. If we were working 
in machine language, this wouldn't be necessary, but the 
long setup time is the price we pay for being able to en- 
ter the music as musical notes and still have it play rela- 
tively quickly. 

HOW SHOULD YOUR GAME USE MUSIC? 

Obviously, this routine can't be used for background 
music, though that's one of the best uses for music in 
a game. If you've ever sung along with a video game 
(Xevious, Gyruss, and Elevator Action are particularly 
musical, I've noticed), you know that background mu- 
sic can set the tempo and mood, getting more intense 
as the player gets further along in the game. 

But even when the music has to take place in the fore- 
ground, stopping everything else, the phrases of a song 
can be very useful. For instance, in a quiz game, instead 



22 AHOY! 



A Printer For All Reasons 

Search For The Best High Quality Graphic Printer 



If you have been looking very long, you have 
probably discovered that there are Just too 
many claims and counterclaims In the printer 
market today. There are printers that have 
some of the features you want, but do not have 
others. Some features you probably don't care 
about- others are vitally important to you. We 
understand. In fact, not long ago, we were in 
the same position. Deluged by claims and 
counterclaims. Overburdened by rows and 
rows of specifications, we decided to separate 
all the facts — prove or disprove all the claims 
to our own satisfaction. So we bought printers. 
We bought samples of all major brands and 
tested them. 

Our Objective Was Simple 

We wanted to find that printer which had all 
the features you could want and yet be sold 
directly to you at the lowest price. We wanted 
to give our customers the best printer on (he 
market today at a bargain price. 

The Results Are In 

The search is over. We hae reduced the field to 
a single printer that meets all our goals (and 
more). The printer is the GF-550 from 
Seikosha, a division of Seiko. We ran this 
printer through our battery of tests and It 
came out shining. This printer can do it all. 
Standard draft printing up to a respectable 
(and honest) 86 characters per second, and 
with a very readable 9 (horizontal) by 8 (ver- 
tical) character matrix. At this rate, you will get 
an average 30 line letter printed in only 28 
seconds. 

"NLQ" Mode 

One of our highest concerns was about print 
quality and readability. The GF-550 has a print 
mode termed Near Letter Quality printing (NLQ 
mode). This is where the GP-550 outshines all 
the competition. Hands down! The character 
matrix in NLQ mode is a very dense 9 (horizon- 
tal) by 16 (vertical). This equates to 14,400 ad- 
dressable dots per square inch. Now we're talk- 
ing quality printing. Vou can even do graphics 
in the high resolution mode. The results are 
the best we've ever seen. The only other 
printers currently available having resolution 
this high go for $500 and more without the In- 
terface or cable needed to hook up to your 
computer. 

Features That Won't Quit 

With the GF-550 your computer can now print 
40, 48, 68, 80, 96, or 136 characters per line. 
You can print in AMY of 18 font styles. You not 
only have the standard Pica, Elite, Condensed 
and Italics, but also true Superscripts and 
Subscripts. Never again will you have to worry 
about how to print H 2 or X 2 . This fantastic 
machine will do it automatically, through easy 
software commands right from your keyboard. 
All fonts have true descenders. 

One of the fonts we like best is "Proportional" 
because It looks most like typesetting. The 
spacing for thin characters like "I" and "I" are 
given less space which "tightens" the word 
making reading easier and faster. This is only 
one example of the careful planning put into 
the GP-550. 




Do you sometimes want to emphasize a word7 
It's easy, just use bold (double strike) to make 
the words stand out. Or, if you wish to be even 
more emphatic, underline the words. Or do 
both. You may also wish to "headline" a title. 
Each basic font has a corresponding elongated 
(double-wide) version. You can combine any of 
these modes to make the variation almost 
endless. Do you wnat to express something 
that you can't do with words? Use graphics with 
your text — even on the same line. 

You can now do virtually any line spacing you 
want, You may select 6, 8, Th or 12 lines per 
inch. PLCS you have variable line spacing of 
1.2 lines per inch to infinity (no space at all) 
and 97 other software selectable settings In 
between. You control line spacing on a dot-by- 
dot basis. If you've ever had a letter or other 
document that was just a few lines too long to 
fit a page, you can see how handy this feature 
is. Simply reduce the line spacing slightly and 
... VOILAI The letter now fits on one page, 

Forms? Yes! 
Your Letterhead? Of Course! 

Do you print forms? No problem. This unit will 
do them all. Any form up to 10 inches wide. 
The tractors are adjustable from 4 'h to 10 in- 
ches. Yes, you can also use single sheets. Plain 
typing paper, your letterhed, short memo 
forms, anything you choose. Any size under 
10" in width. Multiple copies? Absolutely! Put 
forms or Individual sheets with carbons (up to 
3 deep), and the last copy will be as readable as 
the first. Spread sheets with many columns? Of 
course! Just go to condensed mode printing 
and print a full 136 columns wide. Forget ex- 
pensive wide-carriage printers and changing to 
wide carriage paper. You can no do it all on a 
standard 8'h" page. 

Consistent Print Quality 

Most printers have a continuous loop ribbon 
cartridge or a single spool ribbon which gives 
nice dark printing when new, but quickly starts 
to fade after a while. To keep the printers' out- 
put looking consistently dark, the ribbons 
must be changed more often than is healthy 
for the pocketbok. The GP-550 solves this 
problem completely by using a replaceable, in- 
expensive ink cassette which is separately 
replaceable from the actual ribbon. It keeps 
Reader Service No. 26S 



the ribbon loaded with ink at all times. You only 
replace the ribbon when it truly wears out, not 
when It starts to run low on ink. Just another 
example of the superb engineering applied to 
the GF-550. (When you finally do wear out your 
ribbon, replacement cost is only $10.95. Ink 
cassette replacement cost is only $5.95, both 
postpaid.) 

The Best Part 

When shopping for a quality printer with all 
these features, you could expect to pay around 
$500 or more. Not any morel We have done 
our homework. You don't have to worry about 
Interfaces or cables. Everything is Included. 
You need absolutely nothing else to start prin- 
ting — just add paper. 

Fio Risk Offer 

We give you a 15-day satisfaction guarantee. If 
you are not completely satisfied for any reason 
we will refund the full purchase price. A 1-year 
warranty is included with your printer. 

The Bottom Dollar 

GF-550A Standard Parallel (No Cable) S249.95 

GP-550CD Commodore (Direct Connect! ... ,4259.95 

GP-550AT Atari (Direct Connect) $259.95 

0P550AP Apple II or lie (Direct Connect).. S299.95 

GPSSOPC IBM K Br Computable* (No Cable)... $259.95 

GP-550TJ TI99/4A (Direct Connect!.... $299.95 

Prices * Availability Subject to Change. CALL!' 

■Shipping is S8.00 - UPS within the continen- 
tal USA. If you arc in a hurry, UPS Blue (second 
day air) Is $18.00. Canada, Alaska, Mexico are 
$25.00 (air). Other foreign is $60.00 (air). 
California residents add 6% tax. These are 
cash prices — VISA and MC add 3% to total. We 
ship the next business day on money orders, 
cashiers' checks, and charge cards. A 14-day 
clearing period is required for checks, 

TO ORDER CALL TOLL FREE 

1(800) 962-5800 USA 
OR 1(800) 962-3800 CALIF. 

or send payment to: 

APROPOS TECHNOLOGY 

1071 -A Avenida Acaso 
Camarillo, CA 93010 

Technical Info: 1-(805) 482-3604 

£ 1 981 APROPOS TECHNOLOGY 



WaferDrive. 
A New Technology 




Floppy disk 
performance for 
your Commodore 
at audio 
cassette prices. 

Entrepo's QUICK DATA 
DRIVE" brings high speed 
mass storage to the Commo- 
dore 64 ,s * and VIC 20. " De- 
signed as a replacement for 
data cassettes, the QUICK 
DATA DRIVE plugs into exist- 
ing cassette ports. You can 
now load a 24K program in 
about 20 seconds instead of 
8 minutes for audio cas- 
settes and 1 minute for the 
Commodore Disk Drive. 

■ Suggested retail price 
under $85 

■ 20 times faster than audio 
cassette 

■ Fully automatic opera- 
tion — needs no rewinding 

■ Highly reliable 

■ Can be used with a second 
drive or an audio cassette 

■ Comes with file manage- 
ment system and utility 
program 

■ Top selling software avail- 
able on Microwafer'" 
media 



♦ entrepo 

ENTREPO, INC. 

1294 Lawrence Station Road 

Sunnyvale, California 94089 

(408)734-3133 

Telex 176337 
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of the incessant "beep" for wrong and "ding-dong" for 
right answers, you can play one phrase of a song as the 
question is asked, and then play the next phrase when 
the player gets the right answer. But for a wrong answer, 
the song is left dangling— which will certainly increase 
the player's desire to get the answer right and finish the 
stupid melody! 

Songs are also useful while players are reading instruc- 
tions, checking scores, consulting maps, and so on. 

And there's no rule that says the phrases have to be 
pieces from the same song. You can have a dozen differ- 
ent songs, and play different ones at different times. Just 
set the value of PH to the number of the phrase you want 
to play, and then GOSUB 60 -the phrase you called for 
will be the one that plays. (If you don't specify a value 
for PH, the next phrase in numerical order will always 
play next.) 

Broken Melody is designed to show how a tune can 
be broken up into pieces, with the different phrases played 
only if and when the player gives certain input. The other 
two programs play continuously until the player presses 
SHIFT. Broken Melody, however, waits for the player to 
press SHIFT before playing anything, and stops to wait 
for another keypress between phrases. Pressing any key 
besides SHIFT, COMMODORE, and CONTROL will 
end the program. 

If you hold down a key during a song, you'll notice 
that the song slows down. This is because the timing for 
the music is done with FOR-NEXT loops, and when you 
press a key it causes an interrupt that uses up processor 
time; this cuts down the number of repetitions of the FOR- 
NEXT loop per second, which makes the notes last long- 
er and slows down the song. 

DECIPHERING THE ROUTINE 

For your ease in understanding how the program works, 
here is a list of the variables and what they are used for: 

ME$(phrase, voice) or ME$(phrase)\ After the con- 
version routine at 9900, this variable contains both the 
pitch and octave code numbers in ASCII form, for use 
as an index into the pitch value tables in PI%( ). 

MVS(phrase, voice) or MV$(phrase): Used only dur- 
ing the conversion routine at 9900; its information is con- 
tained thereafter in ME$. 

MD$(phmse): Contains the duration values; the VAL( ) 
function retrieves the values for use as an index into the 
duration table DU%(). 

ES%: The number of phrases in the song, minus 1. 

EV%: The number of voices in the song, minus 1. 

?l%(code,0) and PI %(code, I): The pitch table, con- 
sisting of the low byte and high byte, respectively, for 
the frequencies corresponding to the musical scale. The 
code is derived from the MES string using the MID$( ) 
and ASC( ) functions. The PI%( ) values are POKEd into 
the frequency registers. 

FR(voice,0) and FR(voice,l): The address of the two 
frequency registers for each voice. Voice 0, for instance, 
is at 54272 and 54273, so those are the values of FR(0,0) 



and FR(0,1). 

G% (voice): The gate value. POKEing this into the gate 
register causes that voice to begin to sound. The gate 
value also determines the waveform (see line 9070). 

UG% (voice): The ungate value. POKEing this into the 
gate register causes the sound of that voice to stop. 

GR(voice): The address of the gate register for each 
voice. 

DU% (code): The duration table. Each of the ten possi- 
ble durations (0-9) consist of the number of times the 
empty loop at line 67 should be repeated. The code is 
derived from the MD$ string using the MID$( ) and 
VAL( ) functions. 

VC: The current voice number. This is used whenever 
the program cycles through the voices; it is the counter 
variable in a FOR VC=0 TO 1 loop. 

PH: The current phrase number. This is automatically 
incremented (increased by 1) each time the routine is ex- 
ecuted, but your program can set this variable indepen- 
dently and take the phrases in any order. 

N: The current note number. This is the counter vari- 
able in the loop FOR N=l TO LEN(MD$(PH) ) at line 
60; it is used with the MID$( ) function as the index in- 
to the MES and DU$ strings. 

AT%, DY%, SN%, RE%, WF%: These variables are 
used in setting up the envelopes and waveforms; they are 
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• Commodore's Assembler 

• Merlin 64 Assembler 

• Kid Assembler (included FREE in book!) 

• Learn to use opcodes, operands and everything 
else to program in machine/assembly language. 

• Watch your program run at warp SPEED! 
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not used after the music is initialized at 9000, so they 
can be used again in your own program. 

X%, Y%, V$, A$, I: These variables are used as place- 
holders and counters at various times during the program. 
They are never used after the music is initialized at 9000. 
so they can be used again in your own program. 
Line by line, here's what's happening in the sound routine 
at 60-70. 

60 Begin a loop through every character in the duration 
and melody strings. 

61 Begin a loop through each of the three voices. 

62 Un-gate the sounds left over from the last note. (REM 
this line if you're using the line at 68.) 

63 Begin a loop through the two frequency registers for 
each voice. 

64 POKE the pitch values- PI %( ) - into the frequency 
registers — FR( ). (Remember that a rest ("@") in the 
original tune produces the PI% value of in both 
registers, which makes the voice silent for the dura- 
tion of the note.) 

65 Close the VC and I loops. (The N loop is still open.) 

66 Open a new VC loop, only this time backward, to 
gate the voices open. This causes the new pitches to 
play. Close the loop. 

67 Execute the duration loop. 

68 Open a new VC loop to gate off the sound. This line 
is REMed; remove the REM and cause the line to 
be executed if you want clearly separated, staccato 
sounds. 



ATTENTION COMMODORE 64 OWNERS 

DID YOU BUY THE WRONG PRODUCT? 

WELL PAY YOU FOR YOUR MISTAKE! 



PRINTER INTERFACE BLUES 



No graphics, doesn't work with 
your software, Bad aspect ratios, 
no available buffer, well you 
wouldn't have these problems with 
the Micro-World M W-350. We'll 
give you $59. off the list price of 
$129. for that strange interface 
that's causing you trouble. 



LAST YEARS BACK 
UP SOFTWARE 



Everyone has Back-up software 
that reproduces errors, but will it 
back up non-standard sectors, re- 
produce density frequency 
alterations, alter the number of sec- 
tors, copy single sync bits, and 
reformat a single track? We don't 
think so. Send your antique back 
and recieve $25. credit toward the 
"New Revised Clone Machine" at 
S49.95. We've added an MSD 
dual drive Clone Machine also 
available for only $39.95. Upgrade 
your products to the latest state of 
the art today. ^^ ££ 




CALL- 201 -838-9027 
or write us at y 

Micro** 

DISTRIBUTING. INC 

1342B Kmrtc 23 Butler. N. I I174II5 
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69 Close the N loop. When the loop runs out, add 1 
to PH so the next time through the loop, the next 
phrase will play— unless the main program has 
changed the value of PH in the meantime. (Note that 
if PH is higher than ES % , the total number of phrases, 
it is set back to 0.) 

70 Gate off all the voices. This only executes after the 
phrase is over. Then RETURN from this subroutine 
to the main program. 

Next month, in addition to examining sound envelopes 
on the 64 and emulating them with a machine language 
routine on the VIC, I'll provide a machine language mu- 
sic routine for each computer. 

DISCOVERING AMERICA 

Even though this isn't a review column, every now and 
then I find a commercial game that is so good I have 
to tell somebody— and you are the somebody I tell. 

Se\'en Cities of Gold (distributed by Electronic Arts; 
created by Ozark Software, underpriced whatever it costs) 
manages to do what I thought was impossible: it has all 
the story excitement of a text adventure, yet it's entirely 
controlled by a joystick and it all happens graphically 
on the screen. 

You are an explorer, sent forth by the King of Spain 
to reach the Indies. Like Columbus, you have a happy 
accident— you find a New World waiting to be discov- 
ered, explored, exploited, and converted. 

The authors have done a remarkable job of giving us 
the experience of discovery. There is no map, at first— 
but as you sail along the coast or lead a band of men 
into the wilderness, a map is automatically drawn. You 
ordinarily see only the small area surrounding you; press 
the button, and you can see a considerably larger por- 
tion of the map. Only when you're safely home in Spain, 
however, can you see the entire map of all your discov- 
eries. (You can also cheat by pressing D when you're back 
home; even the undiscovered lands are displayed then, 
but you get no more credit for discovering anything.) 

In the New World, you discover major, medium, and 
minor rivers, and such exotica as "A land of high moun- 
tains" or "A land of lush jungles." Each new discovery 
adds to your reputation as an explorer -it is counted into 
your score. 

But you don't run these expeditions out of love of dis- 
covery alone. They're expensive, and you have to make 
the investor's money back, particularly since the inves- 
tor is the King of Spain. So you have to get gold. The 
simplest way is to discover a gold mine and ransack it- 
but there aren't many signposts saying "This way to the 
free gold." 

Instead, you have to deal with the natives. And here 
is where Seven Cities of Gold stands head and shoulders 
above any other adventure game I've played. Your expe- 
dition brings along a certain amount of trade goods. When 
you discover a city or a village, you can trade for food 
or whatever gold the natives have. However, it isn't just 
a matter of simple barter. The natives don't necessarily 
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ersonal computers. They're creating 
sweeping changes. Opening up a wealth of 
money-making opportunities for anyone 
willing to put in a little work to cash in on 
the incredible boom. 

The industry's still young. Still unable to 
satisfy needs and demands. There are an 
unbelievable number of personal computer 
owners out there waiting— sometimes almost 
begging— for more products and services. 

You can take advantage of this situation 
. . make money in virtually any aspect of 
the personal computer field. But if you want 
to make the really big bucks, you need to of- 
fer something unique. Something extra spe- 
cial. You need to have one great idea. 

Your one great idea. I've got it. 

Hello, my name is Larry Carter. Until 
recently I was the owner of just one busi- 
ness-Carter Spray Finishing Corporation. I 
built my company up through the years but 
expansion didn't come easy. There were al- 
ways problems, long hours of hard work, 
weekends at the office. 

The only good thing was the payoff 1 lived 
in a plush apartment, drove a Cadillac Eldo- 
rado, wore expensive clothes. Still, my life 
was wrapped up in my business. I had a gor- 
geous beachhouse but hardly ever went 
there. Liked to go skeet shooting but rarely 
picked up my hand-crafted gun. I found it 
almost impossible to tear myself away from 
work. 

Then, a short while ago, I invested in a 
computer to help me run my firm. Those 
50-60 hour weeks were finally getting to me. 

I became fascinated by my electronic mar- 
vel and went shopping for one for my home. 

That was my introduction to the vast po- 
tential of the multi-billion dollar personal 
computer market. My business sense got 
aroused. Here was an opportunity too good 
to miss. I knew I had to grab it. The only 
question was "how?" 

I was sitting at my new "toy" when the 
light bulb went off in my head. I was sure 
my idea was a winner - couldn't wait to 
put it to work. 

Start-up was simple as pie. And the re- 
sults took me by surprise. 

To a guy who always slaved for a buck, 
the money was almost sinful. It came in so 
fast and easy. And there were no backbreak- 
ing hours. No headaches. 

Only then did I realize I had made a fan- 
tastic discovery. I could slow down my pace 
and still increase my income. That did it. No 
more nose-to-the-grindstone for Larry Carter. 



LOADS OF MONEY 

AND PLENTY OF SPARE TIME TO ENJOY IT 

With a personal computer and an hour-and-a-half a day, you can 
make more money faster than you ever thought possible. It all 
hinges on one great idea. 



More money, less work. 

Today I am in the spray finishing busi- 
ness and the personal computer business. 
I'm a greater success than ever. And I work 
less than ever, too. All because of the 
change that occurred when I came up with 
my great idea. 

A few trusted employees manage my 
spray finishing concern when I'm not there. 
And my home-based personal computer 
business -why that's not work, it's part- 
time fun that's paying me a handsome full- 
time salary. 

Life's a ball. I threw a few parties at the 
beachhouse last summer. Go skeet shooting 
every chance I get. And am looking forward 
to some exciting vacations. 

Now I'd like to share my idea with you. 
Because the market's too big for just Larry 
Carter. Because I get a kick out of helping 
others. And because I believe more folks 
should work for themselves. For as I well 
know, when you're self-employed, you're 
happier, more independent and enjoy the 
full reward of your own effort. 

With my idea, that reward can be 
substantial. You can make as much as three 
thousand five hundred dollars -$3,500— in 
your first two weeks of operation. With only 
IVi hours of work a day. And that's only the 
beginning. 

Make as much as 825,000 a month. 

In just 90 days, once you're established, 
you can make as much as $25,000 a month. 
Yes, S25.000 a month! And you'll still be 
working an hour-and-a-half a day. 

All you need is ambition and the desire to 
succeed. For when you use my idea, you 
don't have to sell door-to-door. You don't 
have to bother friends or relatives. 

You don't need lots of start-up capital. 
There's virtually no investment involved. 
You don't needto live near other personal 
computer owners. Don't need to be a pro- 
grammer. My idea is based on applied 
business ancf common sense, not a know- 
ledge of computers. There's nothing com- 
plicated about what I have to show you. 

Easy-to-follow steps. 

In my new book, "The Profit Potential in 



Your Personal Computer. The S25,000-a- 
Month Idea," I'll tell you how to put my con- 
cept to work. Give you all the simple-to- 
understand instructions. Help you start 
making money the day you put my plan into 
action. 

Now I'm going to hit you with two 
surprises. 

Surprise #1. You don't need to own a per- 
sonal computer to benefit from my book. If 
you have access to one at school or work, 
you can follow my guidelines and watch the 
dollars roll in. 

Surprise #2. My book only costs S39.95, a 
remarkably low figure when you make a 
simple comparison — the price of the book 
versus the money you can make by using it. 

Three FREE gifts and a money-back 
Guarantee. 

To make your investment even more at- 
tractive, I'm also going to send you three 
FREE gifts: (1) a second thought-provoking 
book crammed with ideas (less profitable 
than mine but just as creativel on how to in- 
crease your income with a personal compu- 
ter. (2) an audio cassette that accompanies 
my book, and (3) periodic updates on 
material that relates to my idea. 

I also want you to be pleased with your 

Curchase, so if you are not happy with the 
ooks and cassettes, return them within 14 
days. Your purchase price will be refunded 
in full. No questions asked. 

Don't wait. Fill out the coupon now. Or for 
fastest possible processing of your order, 
dial this 24-hour-a-dav toll-free number: 
800-835-2246 ext. 209. 

Remember, the sooner you order, the 
faster you'll start making big money. So 
mail the coupon now. Turn your personal 
computer into a S25,000-a-Month Profit 
Center. And a means to a fun-filled new 
lifestyle. 



Order anytime by calling toll-free 

800-835-2246 ext. 209 

Mastercard and Visa only. 




To: 

Lawrence Carter 

Carter Publications Inc.. 65 Eckford St., Brooklyn NY 11222 (Dept. AJ) 

Dear Mr. Carter: 

Please send me The Profit Potential in Your Personal Computer. The S25,000-a- 
Month Idea" plus my three FREEgifts. I enclose S39.95 plus $3.00 (foreign orders add 
S20.00 air freight, Canada add S7.00I postage & handling or authorization to charge my 
credit card.* If not satisfied, I may return my purchase within 14 days for a full refund. 

Name 

Address 

City 



.State 



□ Check or money order enclosed 

□ Charge to □ MasterCard □ Visa 

•New York residents please add local sales tax. 

Card number 

Signature 



Zip. 



Expiration date 
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like having strangers — particularly armed and dangerous 
ones -mucking about in their towns. 

When you enter a village, your expedition is repre- 
sented by a single figure, however many men you have 
with you. If you bump into one of the many figures rep- 
resenting natives, that native is killed. And since they 
come jostling around you pretty quickly, you have to 
scramble to keep from bumping them. Bump one or two, 
and maybe you can still trade with them -kill a third, 
and you've got a battle on your hands. 

Fortunately, you have a few things in your favor. The 
first time you enter a village, you can choose to amaze 
the natives; this makes them stand back and let you 
through for a second or two. Then, when you get to the 
center of the village, where the chief is waiting for you. 
you can give him gifts. (You can also give gifts to the 
common folk, but it gets you little more than the time 
of day.) When you've given the chief enough gifts, he'll 
trade with you. 

The chief is the key to winning battles, too. I hate to 
tell you the defect of character that led me to discover 
this, but if you begin a battle by treacherously killing 
the chief before attacking anyone else, you win a lot more 
easily, with less loss of lite on both sides. This means 
that whether you want to trade or invade, you still are 
better off doing as Cortez and Pizarro did — make your 
way to the head man before you show your guns. 

After you trade with or vanquish a village, many of 
the natives become bearers, allowing you to carry far 
more gold and food than your men could carry alone. 
These bearers usually stay with you until you board your 
ship and sail away. 

Word spreads among the natives, too. If you've made 
friends with the natives, they'll tell you about other towns 
and you'll see the villages without having to stumble 
across them— a great time-saver. But if you've been wan- 
tonly killing, the next village will be warned and will 
attack you immediately. 

Believe me— killing everything that moves is a sure way 
to achieve disaster. 

When you conquer a village, you can usually estab- 
lish a mission there; but the natives will be hostile, and 
will often overthrow the garrison you left behind. How- 
ever, if you have been unusually kind in your dealings 
with a village, the chief will voluntarily ask you to estab- 
lish a mission. 

In other words, the way you behave, the moral char- 
acter you establish in the game, affects the way the other 
characters in the game respond to you. If you're blood- 
thirsty or careless of your men, cither the natives or star- 
vation will finish you off: if you're careful and wise— 
and sometimes ruthless-you'll achieve high rank when 



you return to Spain. The best I've done at journeyman 
level is Viceroy- it's hard to imagine the King giving you 
any higher rank! But there's an advanced game that I 
haven't even tried to play. 

An added benefit is the world-building program. If, 
like me. you are familiar enough with the history of the 
European conquest of America that you knew all the plac- 
es to go to conquer great empires, then you can use the 
world-building option to create new continents. The pro- 
gram was well-designed: the invented continents are real- 
istically laid out. And this time, you really are explor- 
ing a world that no one has ever seen before. 

In other words, this is that rare thing: a perfect game, 
which is worth the price you pay for it. 

The graphics are beautiful, I love the world-building, 
the simplicity of acting out a very complex story is amaz- 
ing—but what I like best is the fact that the game re- 
sponds to you on a moral level. 

This is way beyond anything you've played in the ar- 
cades. Most shootem-up games have a kill-or-be-kiiled 
premise. When I first started playing text adventures. I 
tried talking to the dwarfs and other creatures in the un- 
derground caverns, but they were only interested in kill- 
ing. A few text adventures -The Lords of Karma, the 
many Infocom games— have more variety, in that not ev- 
erybody you meet wants you dead, but I have seen none 
that do what I've been asking for since I first wrote to 
the guys at Infocom back in 1980: I want the game to 
change to respond to the kind of person my player-figure 
reveals himself to be. 

I imagined then a text adventure in which, if a player 
kills everything that moves, within a few turns all the 
creatures in the cave get together and wipe him out. That's 
civilization, isn't it? Ganging up on the killers? 

More important, though. I wanted the adventure worlds 
to be peopled with characters who respond to you indi- 
vidually. If you show yourself to be greedy, the thieving 
types would gravitate to you; if you're considerate, peo- 
ple who need help will call on you and then help you 
in return; if you're generous, you'll be trusted— but you'll 
also be taken advantage of: if you're cowardly, you'll be 
bullied. Certain characters will become your friends and 
fellow travelers; others will be your enemies; still others 
will be indifferent. 

Seven Cities of Gold is the first program I've seen that 
takes an important step in this direction. It gives game- 
playing, for the first time, the moral dimension that has 
previously been reserved to the storytelling arts like film 
and theatre and fiction. 

I hope this game does so well that other game design- 
ers learn from it. □ 

SEE PROGRAM LISTINGS ON PAGE 88 



Ahoy!'s Bulletin Board System 

II your computer is equipped with a modem, you can call Ahoyfs Bulletin Board System (718-383-8909) any hour of the day, any day 
of the week to exchange electronic mail with other Commodore users or download files like the following: 



Editorial calendar for upcoming issues 
Excerpts from future editions of Scuttlebutt 



Corrections to programs and articles 
Detailed descriptions of back issues 



Program disk and subscription information 
Classified advertising 
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T~ he subject of computer telecommunications 
completely baffles most novices. Anyone who 
has ever been a teenager knows how people 
use a telephone, but the way in which a com- 
puter communicates over the phone lines is much less 
obvious. After all, they don't have any arms, lips, ears, 
or dimes, and even if they did, what's a computer going 
to talk about? Complain about his disk drive, or gossip 
about that cute little VIC down the street? To make mat- 
ters worse, telecomputing carries with it an imposing load 
of jargon. Just when you were beginning to understand 
the difference between ROM and RAM (or had given 
up trying), along come terms like modem, terminal, du- 
plex mode, carrier, answer and originate modes, and par- 
ity bits. As Mr. Bill would say. "Oh Noooooooo." 

Not to worry. As surely as a telecommunications sys- 
tem transforms electrical signals into information, this 
installment of Ship so Shore will cut through the mum- 
bo-jumbo surrounding computer communications. We'll 
take a look at the equipment used in telecomputing, how 
it operates, and some of the terms associated with that 
operation. 

Anyone who has used a computer knows that they com- 
municate through input or output devices. We use input 
devices such as the keyboard, joystick, light pen, or game 
paddles when we want to send information to the com- 
puter. We use output devices such as the display screen 
or printer to take information from the computer. Dur- 
ing telecommunications, the computer receives informa- 
tion from another computer just as it does from the key- 
board, and it sends out information to another compu- 
ter the same way it sends it out to the display screen. 
The only difference is that unlike most input/output de- 
vices, the other computer is not physically present in the 
same room as yours. Usually, you hook up your compu- 
ter to external devices like a printer or disk drive by at- 
taching the two with a cable. Since a telecommunications 
link is established over phone lines, some extra equip- 
ment is needed. 

Figure 1 shows the basic elements of a telecommuni- 
cations link. At either end of the link is a computer (la- 
belled "c") connected to a phone line by a device called 
a modem (labelled *m", and pronounced "moe'dem"). Usu- 
ally, a computer communicates to outside devices by 
means of electrical signals running through wires. But 
the phone lines which serve as the most common medi- 
um for communicating between two points are designed 
to carry sounds, not the tiny electrical impulses that a 



computer generates. That's where the modem comes in. 
It takes the electrical signals from your computer and 
turns them into sounds that can be sent over the phone 
lines (or Modulates them), and takes the sounds that were 
sent over the phone lines from another computer/modem 
combination and turns them back into electrical signals 
(or DEModulates them). The net effect is the same as 
if the two computers were connected by wires, and ex- 
changed electrical signals directly. The only difference 
is that sometimes if there is static on the phone line, the 
information may be garbled during the transmission. 

Most Commodore users have modems that were made 
specifically for Commodore computers and plug right 
into the user port. But it is also possible to use gener- 
al-purpose modems with the help of what is known as 
an RS-232 interface (the box connected to the remote 
computer in Figure 1, labelled "r"). The name RS-232 
may sound mysterious, but actually, it stands for Rec- 
ommended Standard 232. It just so happens that Stan- 
dard number 232 of the Electrical Industry Association 
describes a standard interface to be used with telecom- 
munications devices. Since computers use a lot of dif- 
ferent kinds of signals internally, the electronics indus- 
try decided to define standard plug and socket connec- 
tions, as well as standard electrical signal levels, so that 
the same telecommunications equipment will work with 
all different kinds of computer equipment. By buying 
an RS-232 interface (for about $40) that plugs into the 
User Port, you can make your Commodore computer 
send out electrical signals that are compatible with all 
kinds of non-Commodore modems, and other RS-232 
devices as well (such as printers and speech synthesizers). 

So far, we've shown what it takes to physically con- 
nect your computer (sometimes called a terminal, be- 
cause it sits at the end of the line) and the remote com- 
puter (sometimes called the host, because it allows 
"guests" like yourself to operate its programs by remote 
control). But all the hardware hookup does is allow the 
two computers to exchange electrical signals. Before we 
can use this system to actually transfer information, we 
have to get the two computers to agree on what those 
signals mean. This is accomplished by the terminal soft- 
ware that controls the exchange. 

Since computers only understand numbers, and not let- 
ters, the first task is to convert the text using a code that 
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CHECK & STATIONERY 

VINYL CARRIERS 

For Adjustable Tractor-Type Printers 
The CHF Computer Check Carrier™ 
Allows You to Use Regular Bank Checks 
for Fast Computer Processing . . . 

ELIMINATES NEED FOR COSTLY SPECIAL COMPUTER CHECKS . . . Designed 

for adjustable. Iraclor-type printers, this slotted, translucent, vinyl sheeting 

accessory uses inexpensive personal or company checks as supplied by your 

bank. Checks with carbons are easily accommodated, too! 

PRODUCES PROFESSIONAL-LOOKING CHECKS — TWICE AS FAST! And il 

helps you lo enioy the full capability of your system. Included is a BASIC 

program to format checks for your system. It may also be used as a sub-routine 

in an existing BASIC program. Check printing and entry into check register are 

simultaneous. 

CARRIERS ARE ALSO AVAILABLE FOR OTHER TYPES OF STATIONERY, TOO! 

Select other carriers listed below tor your stationery needs. CHF makes 

carriers for most other forms of stationery. Check with your local computer 

store or fill in the order blank below and return for fast shipment of your order. 

NEW "E" MODELS DOUBLE THE LENGTH OF OUR STANDARD CARRIERS. 

The new S100E model gives you twice the carrying capacity, sixteen checks 

versus the standard eight. The "E" model is also available lor all other Carriers 

except the S824 — double Ihe holding capacity stated below tor the "E" model 

of any Carrier. Suggested retail price for all "E" models is $19.95. 



SPECIALIZING IN CHECK AND STATIONERY CARRIERS FOR COMPUTER USE 



radicate carrier you with to aider (Place in "f In the 

box la indicate extended version.)* 

_ S10Q Hotdi etahl il -iird (2 > . i 6) itir petsorul 

Cheeks. Carrier li 8' wide. 
Q S1Q1 Same at the S10D except that this carrier 

i: 9 1 -: ' wee lor printers thai are not adjutlaMe 
_ (ST.OO extra). 
. . S1D3 Hnldi eight 2 1 ,. i |ft Canadian Size Per 

sonal Checks. 9 ' ; " wide Carrier 
D S200 HoMt in Bunnell (3', ' IjQ sure 

checks. Carrier it 9 '■■: ' wide 
D 5303 Holdi Are J', i b : envelopes. Carrier It 

8* w«e. 
L_ S306 Holds fire 3',. i S , eavetopet. Carrier n 

10V wide (rtqiiiret your printer ig expand lo 

m*\ 

_ S309 Hotdi (lie 4\ x 9' i invetopes. Carrier i 
10 V wide (require! your printer |g expand to 
IDT*'). 

Q S4Q4 HoWe i Peaie Carrier is I ■ «rdt Heads 
eight Rolodei Petiie cirCi 

□ S4Q8 RotodAt 1% | A. Carrier is 8 wxje Hold; 
eight cards. 

G $412 RoMei 3x5. Carrier li 8 ' wide. HoMs 

teven cardi. 
D 5505 Vh x Vh Index and Pott Cards. HoMs 

I ¥1 cardi. Cl t r Il B wMl. 
D 5510 4xo Index Cards. Hotis lour Index Cards. 

Carrier li 9W ■ wide. 
D SSI 5 3i5 index Cants. Holds lie tntta Cards. 
_ Carrier is 8" wide. 

□ 5520 5x8 Index Clrdl. Hotdt tow Index Cardi. 
Unset it 10 ' wide. 



. ST07 Letterhead BW a 11. Holds three let' 
lerhaadt. Carrier Is 10' w«Je. 

5714 Memo sere Vk x IK. Holdi three Memo 
size sheets. Garner is B wide. 

$721 Legal Letterhead Vh i 14. HoMs two 
Legal Letlertieads. Carrier Is 10' wide. 
S72B DitlD or Form* E"; x tY/L Heidi two, 
Catnei \x 10" wide. 

5715 Forms Vn t 11V.. Hokdi two. Carrier is 
10' wide. 

S80B Voethet Ceajcke, Quick Lefttri, Quick 
Reply, Invoices. Purclust Orders, i' ■ * 7\. 
Holds three 8^ x 7', Forms, Carrier is 10' 
wide. 

S81B Blank Carrier. Carrier is S"i ' wdf This 
Carrier akwi you to make your own headers for 
non-standard size stationery, rncludei mttruc 
bont on "Haw Te." 

5824 Label Carrier. Carrier n9': wide, Ataws 
you to putcnj.it regular pressure- sen trove 
labeli. place the labels on The Label Carrier and 
you ait an ready to go. (Name tags, address 
labels, etc., 
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THE CHF COMPANY 

P.O. BOX tflS • OBERLIN. OH 44074 

2161775-7338 
"CompuServe 7 u — EWA11 TM 74266601" 

Dealer Inquiries InvileO' 



City 



State. 



Zip 



Check or money order enclosed. |U s cui»nc» oni»i 

Make tiayaDIO ID The CHF Company Please do not send cash 

MasterCard No. 



Bank No. (il M.C.J . 

VISA No 



Expiration Date. 
Signature 



VISA and MasterCard orders may be placed by phone — J16/775-733B 
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the computer can understand. The most common code 
is called ASCII (American Standard Code for Informa- 
tion Interchange). In ASCII, the number 65 stands for 
the letter "A", 66 stands for the letter "B", 97 stands for 
"a", etc. Internally, your Commodore computer uses a var- 
iant of this code called PETASCII, in which 65 stands 
for "a", while 97 stands for "A", but your terminal pro- 
gram will make the conversions so that you communi- 
cate in the same standard ASCII everyone else uses. 

Let's follow the process of how your computer con- 
verts text to numbers, step by step. First, the program 
starts with text characters that you type in. For our ex- 
ample, let's use the letters 



V 


I C 




The ASCII codes for these letters 


are: 


86 


73 67 





These numbers are in the form of decimals, the base 
ten numbering system that humans use. But computers 
use base two. or binary numbers. They find these num- 
bers easier to work with, because in base two, all num- 
bers are expressed using only two digits, the "0" and the 
"1". Of course, it takes a lot more digits to write a num- 
ber in binary. In fact, in order to write any number from 
to 127 (as you must in order to use the 128 characters 
of the ASCII code), you need at least seven binary dig- 
its. The seven-digit binary equivalent of the ASCII num- 
bers above is 

1010110 1001001 1000011 

As you will see later, not only are these kinds of num- 
bers easy for the computer to work with, but they are 
also easy to convert into sounds. 

Even though we have changed our text characters a 
lot so far, we're not through yet. For one thing, some 
telecommunications programs use an extra binary digit 
(or bit) for what is called parity. In the early days of tele- 
communications, noisy telephone lines were an obstacle 
to information exchange, because the noise on the line 
could be misinterpreted as a false signal. Some way of 
determining whether the data received was exactly the 
same as the data being sent was needed. By adding one 
more digit to each character, a crude form of error de- 
tection called "character parity" was implemented. The 
way it works is simple: if you choose EVEN parity, the 
extra digit is used to insure that the number of 1" digits 
is even, and if you choose ODD parity, the extra digit 
is used to insure that the number of T' digits remains 
ODD. For example, using even parity, our binary repre- 
sentation of the letters VIC: 



1010110 


1001001 


1000011 


becomes 


01010110 


11001001 


11000011 



The receiving computer would use this parity bit as 
a safeguard against bad transmission. If the bits didn't 
add up, the computer would know that the transmission 



was faulty, and could ask for the character to be sent 
again. This kind of simple error checking really belongs 
more to the era of mechanical teleprinters than today's 
modern computers. Nowadays, very few systems use par- 
ity. When you select NO PARITY with your terminal 
software, the eighth bit is always changed to zero (un- 
less you want to send special. non-ASCII characters), so 
that our binary code for VIC becomes 

01010110 01001001 01000011 

We're almost ready to ship out our data, but we still 
have one last manipulation to perform. We've got to add 
"framing" bits that show where each character begins and 
ends. In order to understand why, let's go over the way 
in which the modem translates electrical signals to sounds. 

Modems use two sets of frequencies to send and re- 
ceive data. These are technically known as "answer" and 
"originate" frequencies, but let's just call them "high" and 
"low" tones. One modem will send information using the 
high voice, and will listen for a reply which the other 
computer sends using the low voice. The other will use 
the opposite pair of tones. Two sets of tones are needed 
so that the modem can differentiate between tones which 
it is sending, and those received over the phone lines. 




Figure 1: Telecommunications Link 

M: modem T: telephone link 

C : computer R: RS-232 interface 



Each voice uses notes of two different frequencies, 
called MARK and SPACE. As you might guess from their 
names, MARK represents the "1" character, while SPACE 
represents the "0" character. By convention, the normal 
"quiet" state of a phone line when no data is being trans- 
mitted is a continuous MARK tone, which can be con- 
sidered a constant stream of ones (this continuous tone 
is also called a "carrier," because the data string of ones 
and zeroes is superimposed upon it). To isolate our text 
character, which has now been converted to a stream of 
ones and zeroes, we "frame" it by putting a SPACE or 
zero character on either side of it. The zero character 
that comes before our text is called a start bit. while the 
one that comes at the end is known as a stop bit. There- 
fore, the binary numbers which stand for the letters VIC: 

01010110 01001001 01000011 

become 

0010101100 0010010010 0010000110 

Finally, we're ready to send this text. Here we have 

AHOY! 31 



a "quiet" communications line (all MARK tones, or ones, 
remember) just waiting for some data: 

MMMMMMMMMMMMMMMMMMMMMMM 
MMM 

When we type the letters "VIC", the ASCII codes for 
which are 

86 73 67 

our computer recognizes what we typed as 

01010110 01001001 01000011 

and our telecommunication software adds in the start and 
stop bits to change it to 

0010101100 0010010010 OOIOOOOIIO 

This data is sent to the modem, which changes the ze- 
roes and ones into the high and low sounds known as 
MARK and SPACE tones: 

SSMSMSMMSS SSMSSMSSMS SSMSSSSMMS 

The modem superimposes these tones over the continu- 
ous MARK tone of the "quiet" line: 

MMMSSMSMSMMSSMMMMSSMSSMSSMSMMM 
MMSSMSSSSMMSMMM 

The receiving modem changes it back into a string of 
ones and zeroes again: 
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111001010110011110010010010111110010000110111 

The telecommunications software on the computer at 
the receiving end must watch this stream of characters. 
Because of the agreed upon convention, it knows that 
the first zero it sees means "Hey! The next eight bits are 
a character, and ninth bit had better be a zero that marks 
the end of the character. After you get that last zero, you'll 
see some ones for a while, until you get another zero 
that starts another character." In this way, the extraneous 
ones added in by the continuous drone of the "carrier" 
tone are stripped away, and the computer at the other end 
receives the characters 

0010101100 0010010010 0010000110 
which it displays as the letters 

VIC 

This may seem like a lot of work for just three letters! 
Fortunately, your computer and modem can handle the 
whole operation at a high rate of speed. What speed, 
you ask? The most common rate is 300 bits per second. 
As you have seen above, each character requires at least 
10 bits, so 300 bps equals a little under 30 characters 
per second. Sometimes you will hear operation at 300 
bps referred to as 300 baud. This unit of measurement 
is named after Georges Baudot, the inventor of an early 
teleprinter code. But it refers only to how many times 
per second the tones change frequency, not how many 
bits arc sent. At 300 bps, the tones change frequency at 
a rate of 300 baud, so the terms may correctly be used 
interchangeably to describe the speed of transmission. 
Modems that transfer data at 1200 bps. however, only 
change the frequency of the tones at a rate of 600 baud. 
so to term them "1200 baud" modems is a mistake. 

The only term left to explain is "echoplex" or "duplex" 
mode. This has to do more with how information is dis- 
played on your screen than how tt is transmitted. Most 
communications links are in what is called "full duplex" 
mode. This means that the remote computer actually 
echoes back every character that you send it, and the text 
that you type in at your keyboard does not appear on 
your screen until it is sent back from the computer on 
the other end. This makes it easy to spot any trouble, 
because if the other computer isn't receiving your text, 
you won't see it on your screen as you type! The other 
possible mode is called "half duplex." In this mode, all 
of the characters that you type are displayed directly on 
your screen. This is necessary only if the remote system 
isn't echoing your characters back. If it is. then you will 
see each character on your screen twice, once from the 
"local echo" and once from the "remote echo," lliikkee 
tthhiiss. 

That about covers our painless introduction to telecom- 
puting. If you have any questions, please send them along, 
and we'll try to cover them in future columns. 

Sheldon Leemon 

CompuServe ID 72705.1355 

Source BBX878 
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A Graphics Generator for the <D-©4 




By Bob 

. he C-64 provides a variety of graphics, but 
producing them on the screen is no easy mat- 
ter. Take for instance the procedure of plac- 
ing a red, reversed heart symbol in the mid- 
dle of the screen. First we use the two cursor keys to 
get to the location. Then we press CTRL and RVS. fol- 
lowed by CTRL and RED. Next we have to find the char- 
acter on our key board... there it is. Now we press COM 
and S. There. Eight keys later we have our symbol on 
the screen. That's a lot of work for one character. 

Drawing a complex picture in this manner is not some- 
thing you would do for fun, but sometimes we'll write 
a program that demands it. Even as I wrote Screen Magic, 
I was wishing I had help. 

Screen Magic takes your hands away from the keyboard 
and places them on that device we all love to handle: 
the joystick. Using only the joystick, you can choose the 
character that you want and print it on the screen. These 
include graphic characters, letters, numbers, and other 
symbols as well. On the screen, along with the charac- 
ter table, there is a palette of colors. Most of the screen, 
however, is your canvas. Although you can draw effective- 
ly without the keyboard, there are a number of special 
keys you'll want to use. I'll get to these in a minute; first 
let's type in the program. 

It's in machine language— and it's long— but Flankspeed 
(see page 86) should eliminate all the typos. Once you've 
typed it in, be sure to save it before running. Then plug 
your joystick into port 2. Type NEW and hit RETURN. 
Then type SYS 49152 and press RETURN. 

The screen will display a table of symbols and colors - 
unlike the keyboard, these are neatly grouped together 
for quick selection. To start, just push your joystick. First 
you'll have to pick a character to print. Center your cur- 
sor, which is an open box, over the symbol you want 
and press the Fire button; the character will be tucked 
away in a tiny buffer. Then move to the palette and se- 
lect a color in the same way. Now go to the right side 
of the screen and hit the joystick button; your character 
will be printed. You can, of course, hold down the but- 
ton and draw a string of characters as you move across 
the screen. Keep in mind that your cursor picks up let- 
ters and colors when it's in the symbol table, but outside 
of the table, it prints them. 

As you move about the screen you may find the cur- 
sor speed too slow or too fast. To change it, press V and 
you'll be asked to enter a number. The fastest is and 
the slowest is 9. You can also use the cursor keys to man- 
euver around, and the space bar to pick up or drop a 



Spirko 

character. Use DEL (or print a space) to erase a charac- 
ter, and CLR to clean your canvas. Some characters, such 
as letters and numbers, have no reverse case displayed 
in the symbol table, but you can toggle reverse by press- 
ing 9 (press RVS without holding the CTRL key down). 
When you've finished drawing, press X to exit to BASIC. 
Now for those special keys I mentioned. After draw- 
ing your picture, you may find that it is not centered on 
the screen. If this is the case, you can scroll your canvas 
to the right by pressing fl. Similarly, use f2, f3, and f4 
to scroll left, down, and up. To change the background 
color, press f5. No doubt you'll want to save some of your 
creations; if so, press f8 and you'll be asked for a file 
name. Once entered it'll be stored (disk only) for later 
retrieval. To LOAD it, press f7. 

Often you might want to draw a symmetrical figure, 
such as a border. Tap the back arrow and you'll be in 
the symmetry mode. Whatever you draw on the left side 
of your canvas will be duplicated on the right. If your 
cursor is on the right side of the screen, no duplication 
takes place. Press the back arrow again to turn off the 
symmetry mode. 

The keys I like most are A and SHIFT-A. Let's say 
you want to draw a line with hearts and diamonds so that 
the first character is a heart, the second a diamond, the 
third a heart, and so on, alternating down the line. If 
you already have a heart in your buffer, toggle key A. 
The heart will be transposed to another buffer. Now move 
your cursor over the diamond and press the fire button. 
With both characters stashed away, you can now print 
alternating symbols. Each time one character is printed, 
the buffers are switched so that the next character to be 
printed is different. To turn off alternating characters, 
hit A again. Toggle SHIFT-A to alternate colors. 

Here's a rundown on the commands: 



11 


scroll right 


re 


: save lo disk 


f2 


scroll left 


■»- 


: symmetry mode 


O 


scroll down 


A 


: alternate characters 


14 


scroll up 


SHIFT A 


: alternate colors 


f5 


change bkgrd. color 


V 


: cursor velocity 


(7 


load from disk 


X 


: exit to BASIC 



When loading Screen Magic back in, you'll have to 
do so with a ",1": 

LOAD"SCREEN MAGIC", 8,1 

as it is all ML. When the cursor returns to the screen, 
type SYS 49152. then RETURN. This will activate the 
program. □ SEE PROGRAM LISTISG OS PAGE 102 
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CAN THE JUKI 6300 

REALLY PRINT OVER 

500 LETTERS IN 8 HOURS? 

STAND BACK A*ND WATCH! 




Busy offices, take note: Our new letter-quality printer 
zips along at 40 characters per second and sells for only 
$995. Its 13" print line will handle your spreadsheets 
and every imaginable kind of correspondence — 
plus graphics! Quiet, too — less than 60 dbA. 
And the 3K buffer memory (expandable to 15K) 
lets you use your computer for other purposes 
while the JUKI is printing. Compatible with 
most computers. (You can even get an optional 
tractor feed and cut-sheet feeder for it!) Now 
you know why JUKI printers are humming in 

offices all over the world! 




aJUKT 

The worker. 

JUKI OFFICE MACHINE CORP. 



EAST COAST: 

299 Market St., Saddle Brook, NJ 07662 
(800) 932-1)590 

WEST COAST: 

23844 Hawthorne Blvd., Suite 101, Torrance. CA 90505 
(800) 325-6134 • (800) 435-6315 (California) 

Reader Service No. 272 





ARCADE ACTION 

for the C-64 

By Bob Blackmer 

uck Shoot is a colorful arcade-style shooting 
gallery, inspired by the old carnival game. 
You simply aim your gun sights at the ducks 
on the screen and fire. 
Shooting down ten ducks will put you in a timed target 
round, consisting of a series of targets that appear on 
the screen for brief periods. The higher your score, the 
faster the required reaction time. If four ducks in a row 
get by, the game ends and your score and the high score 
are displayed. 

The duck's speed will increase as you progress through 
the rounds. 

Ducks are worth 25 points each, and the targets are 
worth 50 points each. 

There are eight target rounds, after which the game 
becomes a flurry of ducks moving faster and faster until 
the game ends. 
If you like shooting for a high score, my best is 6300. D 
SEE PROGRAM LISTING ON PAGE 105 




Commodore 64 
Programming Hj^ll 
Made Simple =L 




pp. 360 

Learn to program! David A. Lien has taught 
thousands of people BASIC programming and 
introduced them to writing custom software. 
Hands-on instructions in a simple, comprehensive 
and even humorous style make learning fun. With 
Learning Commodore 64 BASIC you can enjoy 
the full powers of your C-64! 

Order by calling TOLL FREE 800-854-6505 (in 
Calif. 619-588-0996) or send $14.95 plus $2.00 
($3.00 foreign) for postage and handling. Visa and 
MasterCard users, include card # and expiration 
date. Mail to: 
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CompuSoft Publishing 

535 Broadway, Dept. 270585 

El Cajon, CA 92021 



Reader Service No. 2S3 



RENT 



BUY 



(ft commodore 



o 



IBM 

Apple - Atari 

Software 



EXCITEMENT 



Hint Book 

75 Adventures 

$19,95 



♦DATABASES & UTILITIES 
♦FOREIGN LANGUAGES 
♦ADVENTURE GAMES 
♦ARCADE GAMES 
♦TRIVIA 

♦ EDUCATIONAL SOFTWARE 
♦CHILDREN'S PROGRAMS 



Call toll-free Outside Texas: 1 -800-433-2938 
- Inside Texas call 81 7 -292-7396 

WEDGWOOD RENTAL 

5316 Wood way Drive 
Fort Worth, Texas 76133 



Reactor Service No 234 
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The Ultimate Resolution 

Exploring Bit Map Graphics on the Commodore 64 

By Dale Rupert 



E 



xploring any new feature of the Commodore 
64 is always an adventure. Originally I had 
planned to deal with the random number gen- 
erator this month. There are several interesting 
computer simulations involving random numbers. The 
Buffon Needle problem and the "infinite number of mon- 
keys at the keyboard" problem can both be simulated by 
using the RND function in BASIC. Before developing 
those problems, I wanted to do some elementary inves- 



tigations into the random number generator itself. That's 
where this diversion into bit map graphics began. 

It is well known from the advertisements that the Com- 
modore 64 has a graphics resolution of 320 dots (hori- 
zontal) by 200 dots (vertical). What isn't obvious from 
the ads is that accessing those 64,000 dots is much eas- 
ier said than done. All I wanted to do was choose a ran- 
dom value for X from 1 to 320 and a random value for 
Y from 1 to 200 and then plot each X-Y pair. Truly ran- 
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ISSUE #1-JAN. '84 $4.00 

64 v, the Peanut! Telecommunications! 
Tales of the Commodore! And ready 
to enter: Multi Draw 64 Graphics Sys- 
tem! Interrupt Music Maker/Editor! A 
Peek at Memory! Sequential Files! 
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ISSUE #5 -MAY '84 $4.00 

Future of Commodore! Inside BASIC 
storage! Memory management on the 
VIC & 64! Spreadsheets! And ready 
to enter: Math Master! Air Assault! 
Biorhythms! VIC Calculator! 

ISSUE #9 -SEPT. '84 $4M 

Program your own text adventure! 
Build a C-64 cassette interface! Vid- 
eo RAM! And ready to enter: Salvage 
Diver! DOS! Sound Explorer! Castle 
of Darkness! Base Conversions! 



ISSUE n -FEB. '84 $4.00 
Illustrated tour of the 1541! Artificial 
intelligence! Synapses; Ihor Vtblosenko 
interviewed! And ready to enter: Music 
Maker Part II! Screen Manipulation! 
Night Attack! Relative Files! 



ISSUE M-MAR. >84 $4.00 

Anatomy of the 64! Printer interfac- 
ing for VIC & 64! Educational soft- 
ware series begins! And ready to en- 
ter: Address Book! Space Lanes! Ran- 
dom Files on the 64! Dynamic Power! 
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ISSUE #4 -APR. "84 $4.00 

Petspeed and Easy Script tutorials! 
Printer interfacing continues! Laser- 
disc! And ready to enter: Apple Pie! 
Lunar Lander! Name that Star! Low- 
er case descenders on the 1525! 




ISSUE 06-JUNE '84 $4.00 

Game programming column begins! 
Program generators! Rupert on input- 
ting! Memory management continues! 
And ready to enter: Post Time for the 
64 & VIC! Alpiner! Sound Concept! 

ISSUE #10-OCT. '84 $4.00 

C-64 Graphics programs! Bit- mapped 
graphics! Joystick programming! And 
ready to enter: VIC 40 Operating Sys- 
tem! BAM Read & Print! Emerald Ele- 
phant of Cipangu! Lawn Job! 



ISSUE #7- JULY '84 $4.00 

MSD Dual Disk! Database buyer's 
guide! Training your cursor! Screen 
displays! File Sleuth! Users Groups! 
And ready to enter: Renumbering! 
Checklist! Math Defender! Brisk! 

ISSUE #11- NOV. '84 $4.00 

Music programs & keyboards for the 
64! Graphics feature continues! And 
ready to enter: PTE word processor! 
Block Editor! Alternate Character Set 
for the 64! Tunnel of Tomachon! 



ISSUE #8 -AUG. '84 $4.00 

Choosing a word processor! Compu- 
tational wizardry! Creating your own 
word games! Sound on the 64! And 
ready to enter : Micro-Minder! Direc- 
tory Assistance! Terrible Twins! 

ISSUE ffl2-DEC. "84 $4.00 

Buyer"s guide to printers! 1525 printer 
tutorial! Custom characters! User 
Guide to KMMM Pascal! Diving into 
BASIC! And ready to enter: Construc- 
tion Co.! Space Patrol! Cross Ref! 



ISSUE 013-JAN. '85 $4,00 

VIC/64 OS exposed! Sprites! 1541 de- 
vice § disconnect switch! Ghostbus- 
ters! And ready to enter: Ultra Mail! 
Music Tutor! Alice in Adventureland! 
Midprint! To the Top! 

ISSUE #17-MAY -85 $4.00 

Disk drive enhancements! Install a 
reset switchl Assembler escapades! 
And rcaclv to enter: Super Dnper! 2- 
Column Directorv! DSKDU! Raid! 
DOS Plus! Font Editor! Tile Time! 

Send coupon or facsimile to: 

Ahoy! Back Issues 

Ion International Inc. 

45 West 34th Street -Suite 407 

New York, NY 10001 



ISSUE #I4-FEB. '85 $4.00 

Printer interfacing! Multicolor sprites! 
Mink-ins! Bulletin hoards! Theory of 
(tame design! And ready Id enter: Fu- 
lurcwar! Fonuisiu! VIC Eraser! Insur- 
ance Agent! Telelink 64! 



ISSUE 015-MAR. -85 $4.00 
Making multiscreen gameboards! In- 
side the Plus/4! Commodore DOS! 
And ready to enter: Old Routine! Pro- 
grammable Functions! Automatic Line 
Nos.! Home Budget! Salmon Run! 



ISSUE #16-APR.'85 $4,00 

Assembly language column begins! 
Programming the joystick! 1541 disk 
drive alternatives! And ready to enter: 
Hop Around! Faster 64! Booter! 
Elechcck! BASIC Trace! Space Hunt! 
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dom numbers should produce a truly random looking 
pattern of dots on the screen. 

Those of you who use one of the enhanced versions 
of BASIC are undoubtedly able to type PLOT (X,Y), or 
something similar, and thereby put a dot on the screen 
effortlessly. This article is for those of you who do not 
use a fancy BASIC, Or those of you who enjoy a compli- 
cated puzzle and want to find out more about the amaz- 
ing silicon brains we are using. 

This month we will investigate the Standard High-Res- 
olution Bit Map Mode of displaying graphics on the Com- 
modore 64. We will see that BASIC is barely able to op- 
erate in this mode. BASIC is very slow and cumbersome 
at manipulating 64,000 dots in most applications. For that 
reason, next month we will create some assembly lan- 
guage routines to help speed things up. First let's review 
some of the basic screen concepts we've previously dis- 
cussed. 

PRELIMINARIES 

In the normal character mode of operation, there are 
twenty-five rows of characters with forty characters in 
each row. That gives a total of one thousand individual 
characters (25 times 40) which may be displayed at one 
time. There are 256 different characters to choose from 
for each of those 1000 locations. Furthermore, each and 
every character may be any one of sixteen colors. 

The Video Matrix is the technical name for the one 
thousand consecutive bytes of memory whose contents 
are normally displayed on the screen. The Video Ma- 
trix begins at memory address 1024 and goes to address 
2023 when we turn on the computer. Those addresses 
may be changed by programming, but we will assume 
that they have not been. 

Each byte of the Video Matrix contains an eight-bit 
value ranging from to 255. In normal character mode, 
the VIC-II Video Interface Chip translates each byte into 
a pattern of pixels (picture elements) which appear on 
the screen in some recognizable form. Appendix E in 
the C-64 User's Guide and Appendix B in the Program- 
mer's Reference Guide (PRG) show 128 of the 256 possi- 
ble forms. The other 128 characters are reverse images 
of those shown. There are indeed two sets of 256 char- 
acters each, but only one of those sets may be selected 
at a time. In fact it is possible to create still other sets 
of characters to replace these, but that is a topic for an- 
other article. 

If we put the value 20 into address 1024 (POKE 
1024,20). the result is a letter "T" in the upper left cor- 
ner of the screen. As we have discussed before, it may 
not be visible until we put a contrasting color value into 
the corresponding color memory location (POKE 
55296,1). The VIC-II uses the 20 as an index into the 
Character Base. The Character Base provides a 64 bit 
dot pattern which represents the character "T". The nor- 
mal Character Base originates in ROM. 

Each character consists of a box which is eight screen 
dots wide by eight scan lines high. Within that box of 



64 dots or pixels, some of the dots are one color and 
the rest are another color. The dots that contrast with 
the background color are arranged in the shape of a U T". 

To get an idea of the size of the pixels we are dealing 
with, put character 102 onto the screen (POKE 1024,102 
: POKE 55296,1). You might be able to count the individ- 
ual pixels, depending upon your monitor and your eyes. 
Each small square in the pattern contains four pixels. 
Keep in mind that those 64 pixels are generated as a re- 
sult of the one-byte quantity stored in location 1024. 

In graphics bit map mode, the VIC-II treats each one- 
byte value in locations 1024 through 2023 quite differ- 
ently. Instead of representing predefined character sym- 
bols, each one-byte value is interpreted as two four-bit 
color codes. In the bit map memory, the "0" bits will 
be displayed as one color and the "1" bits will be shown 
as the other color. But just a moment. What is this bit 
map memory? 

THE BIT MAP 

We have already calculated that a 320 by 200 resolu- 
tion display needs 64,000 bits or 8000 bytes of storage. 
The C-64 hardware is arranged so that the 8000 byte bit 
map memory may begin at either location or location 
8192. Since BASIC and the operating system are very 
dependent on the page zero memory, we wouldn't get very 
far by POKEing random data there. Consequently we 
must use the 8000 bytes beginning at address 8192 for 
our bit map memory. 

Having defined a suitable block of memory, we can 
create an image on the screen by turning some of the 
64,000 bits on and turning others off. The first eight bytes 
of this memory contain 64 bits which correspond to the 
small, character-sized region in the upper left hand cor- 
ner of the screen. The bits that are Is will be displayed 
as one color, and those that are 0's will be displayed as 
another color. The actual colors depend upon the value 
stored in location 1024. The next block of 64 pixels will 
also be displayed in two colors. Those colors are deter- 
mined by the value stored in location 1025. And so forth. 

There is a very definite similarity between the char- 
acter mode and the bit map graphics mode. Each mode 
has a data memory and a separate color memory. For 
character mode, data memory consists of 1000 bytes be- 
ginning at location 1024. Its color memory consists of 
1000 nybbles beginning at location 55296. Each of the 
1000 characters may have any one of sixteen colors. For 
bit map mode, data memory consists of 8000 bytes begin- 
ning at location 8192. The corresponding color memory 
begins at location 1024. Each of the 1000 bytes starting 
at 1024 contain two color nybbles. Each block of eight 
bytes in data memory can be displayed in any two of six- 
teen possible colors. As we discuss the details, the con- 
fusion should subside. 

THE DETAILS 

Pick two colors, any two colors, as long as they are 
from the group of sixteen listed in Appendix G of the 
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User's Manual or Appendix D of the PRG. A number 
20 in location 1024 while in bit map mode is interpreted 
as the colors white and purple. The easiest way to see 
this is to convert it to hexadecimal. In hexadecimal, 20 
becomes $14 where the "$" signifies that this is a hexa- 
decimal value. 

The "4" is in the units place, and "4" corresponds to 
purple. The "1" representing white is in the 16's place. 
The decimal value of $14 is 1*16 + 4 or 20. That is how 
the value 20 in location 1024 represents the colors white 
and purple. 

If you want the 64 pixels in the upper left corner of 
the screen to be light blue or yellow, you must poke 231 
into address 1024. Light blue has a value of 14, and yel- 
low has a value of 7 (14*6 + 7 = 231). The color value 
in the most significant nybbte is treated as the foreground 
color, and the other is the background color. Poking 126 
into 1024 would reverse the colors since 7*16 + 14 = 126. 

A simple example should clarify the situation. Assume 
we are working in bit map mode, and location 1024 con- 
tains the value 20 (white/purple). Put values 255,0,255, 
0,255,0,255,0 into the first eight locations starting at ad- 
dress 8192. Remember that these eight bytes represent 
the pixel pattern displayed in the upper left corner of the 
screen. That eight by eight square will look like this: 

11111111 
00000000 

11111111 
00000000 

11111111 

00000000 

11111111 

00000000 

The number 255 contains all l's, and of course is 
stored as all 0's. The computer does not display l's and 
0's on the screen. Instead all the l's are displayed as white 
pixels, and all the 0's are shown as purple pixels. Con- 
sequently there will be a white and purple striped square 
in the upper left corner of the screen. 

If we replace the 255 in location 8192 with 254, the 
pixel in the upper right corner of the box above will 
change from white to purple. If we put the value 1 into 
memory location 8199, the lower right corner of the box 
will change from purple to white. If we change the val- 
ue in location 1024 from 20 to 231, the box will change 
from white and purple stripes to light blue and yellow 
stripes as we calculated earlier. 

It should now be clearer as to where the term "bit map 
graphics" originates. The value of each bit corresponds 
to a pixel on the screen. The screen image is essentially 
a map of the bits in memory. 

The details of the organization of the 8000 byte bit map 
memory are shown on page 125 of the PRG. Unfortun- 
ately the calculations needed to determine the specific 
byte and bit to turn on any given pixel on the screen are 
somewhat involved. 
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Using the terminology in the PRG, the formulas for 
locating the pixel at location X,Y are as follows: 

BYTE = BASE + 320*ROW + 8*CHAR + LINE 

BIT = 7 - (X AND Y) 
where 

BASE = 8192 (the starting address of the bit map) 

ROW = INT(Y/8) 

CHAR = INT(X/8) 

LINE = (Y AND 7) 

The calculated BIT is set to 1 or reset to in address 
BYTE in order to select the foreground color or the back- 
ground color for the pixel at screen location X ,Y. X rang- 
es from to 319 and Y ranges from to 199 with the 
origin 0,0 in the upper left corner of the screen. 

Unfortunately these formulas represent a fair amount 
of work for BASIC to locate just one pixel . You enter 
the bit map mode in BASIC only if you have plenty of 
time. Let's look at the details of initiating bit map mode 
and working in it. 

USING THE BIT MAP 

The steps required for using bit map mode are as fol- 
lows: 

1. Set the bit map starting address to 8192. 

2. Enter bit map mode. 

3. Clear the bit map memory. 

4. Put desired color(s) into the color memory. 

5. Set (or reset) desired bits in bit map memory. 

The sequence for these steps depends upon the appli- 
cation. The program on page 88 shows how these steps 
are implemented. 

We will use the "set bit" and "reset bit" functions which 
we have discussed in previous columns. They are de- 
fined in lines 10 and 20. Line 420 shows how these func- 
tions are used. The argument of the function must be 
a number from to 7 corresponding to the chosen bit. 
The memory location must be stored in the variable 
named MM. The statement POKE MM, FNSB(5) will 
set bit 5 of address MM to 1. If BIT has a value of 3 
and MM equals 9000, then POKE MM,FNRB(BIT) will 
reset bit 3 of location 9000 to 0. 

To place the bit map memory at address 8192, we must 
set bit 3 of VIC-II register 24. ("Set" will mean to give 
a value of one and "reset" will mean to give a value of 
zero in the following discussion.) The VIC-II registers 
begin at location 53248. Register 24 is at address 53248 
4- 24. The variable VV in line 30 stores the starting 
address of the VIC-II registers. Line 40 sets bit 3 of regis- 
ter 24 and defines the starting location of bit map mem- 
ory. 

To enter bit map mode, line 50 sets bit 5 of VIC-II 
register 17. If you stop the program at this point, you 
see a jumble of dots, especially if the screen had char- 
acters on it before you typed RUN. The eight by eight 
demarcations should be visible as the colors vary from 
box to box. The colors are determined by the characters 
which were on the screen when you ran this program. 
The dots within the boxes show the data that happened 




Monitors 
BMC Color 149« 

Pan 1300 RGB & 

Comp 289 9S 

Zenith Green .-79" 

Modems 

Mighty Mo 64" 

Comm 1660 - .79" 
Telesonic Call 

Cassette 
Recorders 

Comm CN-2 . . 59" 
Third Party 39" 




nterfaces 

Telesys Turboprint GT 

•Prints Enhanced Graphics. 
Different Type Faces, & 
Reverse Characters 'Includes 
Power Cord, Five Feet of Cable 
and All Required CQQ5 
Connectors 3" 

CardcoG+ Call 

Microworld Call 

Diskettes 

Nashua . , 10" 

Scotch 14" 

Maxell 14" 

Memorex 11"* 





Printers 

Gemini SG10 209" 

Gemini SD 10/15 newi Call 
Gemini SR 10/15 new Call 
GemirsSB 10 sew . Call 
Gemini SG 15 359" 

Silver Reed 400... 249" 
Panasonic 1091 . . . .Call 




SOFTWARE 

SPECIALS 

Fisher-Price 

Learning Software 
Alpha MM 
Logic Levels 
Movie Creator 
Sea Speller 
Songmake' 
Up & Add 'Em 



12.99 
12.99 

12.99 
12.99 
12.99 
14.99 



Windsor Classics By Fisher Price 



Below The Root 
Swiss Family Robmson 
Alice in Wonderland 
Treasure Island 
Flobin Hood 
Wizard ol Oz 



16.99 
16.99 
16.99 
16.99 
16.99 
1699 



A*, penguin 
\V software ' 



2199 

16.99 
16.99 
16.99 
23,99 
16.99 
19.99 
19.99 
19.99 
19.99 



Qt commodore 

801 MCS 

Color 

Printer 



New Products 



Z69 95 



C-16 Computer 
C+4 Computer 

801 Printer 

802 Printer . . . 

803 Printer . 



79" 
189" 
149" 
179" 
174" 



Cues'. 19,99 

Transylvania 19,99 

Sword ol Kadash 19.99 

Xyphus 19.99 

Graphics Magician Picture 

Painter 

Spinnaker 
Counting Parade 
Early Learning Friends 
Main Buster 
Presidents Choice 
Sum Ducts 
Amazon 
Dragonworld 
Fahrenheit 451 
Rendezvous wilh Rama 

Professional SoHware 
Fleet System 2 - Word Processor 

.villi built in 70 000 word 

spell check 

CBS Sohware 
Dr Seuss Fix up The Mix-up 

Puzilei 
Sesame Street Letier-Go- 

Round 
Big Bud s Fun House 
The Sea Voyager 
Weather Tamers 
Movre Musica Madness 
Success w/Decimals 

(Add/Sub! ) D-T 
Success w/Deamals 

(Mult TJiv I D-T 
Success w/Fractions 

(Add /Sub! : D-T 
Success w/Fractions 

(Mull /Div I D-T 



Duck's Ahoy 
Ernie's Magic Shapes 
Mastering the SAT 
Murder by the Dozen 
Peanut Butter Panic 
Epyi 
Fast Load 
Barbie 
Mot Wheels 
Gl Joe 
Breakdance 
Baseoan 
Pitsiop 
Pitsiop 
9 to 5 Typing 
Morela 

Touch Tablets 
Koala Touch Tablet-D 
Koala Touch Tablet-Cart 
Muppei Learning Keys 
Access 
Neulral Zone-D/T 
Spritemasler-O/T 
Beacflhead-DiT 
Master Composer-0 

Commodore 
Program Rel Guide 
Assembler-D 

Easy Finance I. II. III. IV-O 
Easy Calc-0 
Easy Mi ID 
Easy Script-D 
Eas/Speli-0 
Logo-D 

The Hanager-D 
General Ledger-D 
Accis Rec -D 
Accls Pay D 
Magic Desk-D 
ZorU II or 111 D 
Suspended-D 
Siarcross-D 
Deadline D 



23.99 
23.99 
104,99 
23.99 
24.99 

24.99 
19.99 
H9.99 

i9 gg 

19.99 

19.99 
2499 

24.99 
24.99 
24,99 

69.95 

64.96 

Call 

20.95 
20.95 
20.95 
23.95 

19.95 
17.95 
19.95 
64.95 
17.95 
39.95 
19.95 
49.9S 
37.95 
37.95 
37.95 
37.95 
52.95 
29.95 
29.95 
29.95 
29.95 



59.95 



19.99 

19.99 
19.99 
24.99 
12.99 
9.99 

14.99 

14.99 

14.99 

14.99 



w i c a 

JOYSTICKS 

THE BOSS 



<• 
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The Bat 
3-Way . 



14" 
19" 
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or Write 

Computer 

Centers 

of America 

81 Terminal Dr. 

Plainview, NY 11803 



Reader Service No. 2G4 



to be in memory beginning at location 8192 when you 
ran the program. 

Lines 70 and 80 POKE into the 8000 bit map loca- 
tions. This seems to take forever. (A good place for a 
machine language routine!) The whole screen will now 
display the background color(s). 

Line 90 sets the foreground color CI to white (1) and 
the background color CO to black (0). Not very imagin- 
ative, but feel free to pick your own colors. The 1000 
bytes of color memory are filled with this one color com- 
bination in line 100. Remember, you may put various col- 
or combinations anywhere within the color memory. 

The main program in lines 200 through 220 performs 
the operation described at the start of this article. Ran- 
dom values for X and Y are chosen, and the correspond- 
ing X-Y pixel is turned on (set to the foreground color). 
The main program calls the subroutine at lines 400 
through 430, which performs the calculations for an X- 
Y pair and lights the proper pixel. Notice that some of 
the formulas mentioned earlier have been combined into 
one formula in line 410 to help speed things up. 

A pause in line 250 allows you to see the screen for 
a while after the one thousandth random pixel has been 
lit. Lines 310 and 330 return things to normal character 
mode. All the characters which were on the screen are 
now P's. Do you know why? Look at line 100 for a clue. 
List the program to see that everything is in fact normal. 



Make your C-64 or VIC versatile with: 
Custom Character Sets: chared for the c.64 



Features: 

U Menu Driven with full screen display 
. Save and Load Character Sefs 

□ Use wth Mulii-CQior Mode 

C Built-in utilities lor reverse, copy 
and boldface characters 

Sports: 

Features: 

Q Course de&gn and game programs 

□ Tfees. SanoTaps user dtsgned Greens 
O Built m Adjustable Pin Placenent 

H -Res ML Graptucs (or speed 



Use with BASIC or ML 
Cieate Fonts or Game Graphics. 
_ Keyboard or Joystick Input 
_ Cu! and Paste Feature 
Speciiy CHARED 

Mr. GOLF 

for C*64 



. 18 hole course included 
] Unlimited number qI Courses 
U Slice and Hook around Obstacles 
J Specify Mr GCLF (joystick required) 



Word Processing: &"§?• cg* and vic.20 



Features: 

I ! Docurnenl editing Create, modfy save 
tape and disk SEGuennai data hies 

G Line image Edilor using simple 
commanps 

F ui 1 1 Screen Editor 

Graphics: 



D Print command with indention and 
margin conifol 

Complete User's Guide included 
, Specity TcxED far C-64 TexED20 lor 
VlC-20 with 16K expansion 

PL0TVIC8 Hl-Ros Graphic* Kit 

for the VIC20 



Features: 

Lj Menu Dnven with Full Screen Display 

i 1 Keyboard of Ughtpen Input 

U Ba&c Geomeliy [point, line, ellipse) 

element color selection, 3-D 
H Screen to printer or plotter (Hi-Res) 

3MPOID 

PO to. 2673 

A^in ^DC Ul 4fll&5 



i Funciions siand alone for use witn 
personal programming (9ASIC) 

J User's Guide-illustrated graphics lufonai 
and technical explanations 
Specify PLOTVIC8 (requires 6K + ) 



Mai! completed form to APCAD PO Bon 2673 Ann Arbor, Ml 48106. Send check 
lor S1995 (US) tar lape. S22 95 disk, or S34.95 tor Iwo ($39.95 disk). S & H included. 



Specify:. 



Address: 

City/Stale/Zip: 

Credit Cards also accepted 
: VISA I MC I AMEX 
Accl. No. Expir. Date: 



_CHARED 
. Mr. GOLF 

TexED 

TexED20 
PLOTVIC6 



Si gnaiyre : 
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Here are a few tips before you take off on your own 
to work with this graphics mode. Remember that RUN- 
STOP/RESTORE will return the screen to normal mode. 
I found it useful to memorize the line number 300. If 
I stopped the program before it finished. I would blind- 
ly type GOTO300 which allowed the program to return 
the screen to normal. That way my screen colors weren't 
reset as they would be with RUN -STOP/RESTORE. 

It is very frustrating to sit and wait for 8000 bytes of 
memory to be cleared every time the program is run. 
You might put in a statement to bypass lines 70 and 80 
after memory has been cleared once. You will end up 
with multiple images on the screen but that may not be 
objectionable for debugging. 

Put your own statements between lines 100 and 300. 
Just define values for X and Y then GOSUB 400. This 
program does not check the validity of any parameters, 
so be careful with your values of X and Y, or add check- 
ing routines (and slow the program down even more). 

Horizontal and vertical lines are easily generated. A 
sequence such as this creates a small rectangle: 

200 FOR X=100 TO 130 
210 Y=20 : GOSUB 400 
220 Y=40 : GOSUB 400 
230 NEXT X 
240 FOR Y=20 TO 40 
250 X=100 : GOSUB 400 
260 X=130 : GOSUB 400 
270 NEXT Y 

These instructions from the PEG draw a sine wave: 

200 FOR X=0 TO 319 STEP 0.5 
210 Y=INT(90 + 80*SIN(X/10)) 
220 GOSUB 400 

230 NEXT X 

There is a warning on page 127 of the PRG that BASIC 
variables can overlay the high resolution screen. It is clear 
from the memory map on page 320 of the PRG that our 
bit map memory (8192 to 16191) is in the midst of the 
BASIC program space. BASIC closes in on this bit map 
memory from both directions. This is all right if the two 
regions don't reach the bit map memory. If your program 
is so large that an overlap occurs, you will have to move 
the bottom of BASIC memory up above address 16191. 
The TXTTAB pointer at locations 43 and 44 determines 
the lowest address used by your BASIC program. Change 
this if your programs conflict with bit map memory. 

It's obvious after running the program on page 88 that 
the random number generator doesn't generate pattern- 
less random numbers. We'll go further with random num- 
bers another time. Next month we'll replace some of these 
sluggish BASIC statements with high-speed assembly rou- 
tines. In the meantime, what will you do with those 
64,000 pixels now that you have control of them? □ 
SEE PROGRAM LISTING ON PAGE 88 
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FREE! 



BONUS GIFT WITH ANY SOFTWARE ORDER — AN EXCELLENT PUBLIC 
DOMAIN VERSION OF AN ARCADE HIT GAME ON ITS OWN DISK. 



ARCADE 

Archon 28.95 

Archon II Adept 28.95 

Beachead II 25.95 

Bruce Lee 24.95 

Castles of Dr. Creep 2D. 95 

Championship Loderunner 24.95 

Computer Quarterback 28.95 

F1 5 Strike Eagle 23,95 

Flight Simulator II 35-95 

Impossible Mission 23.95 

International Soccer 19.95 

Kennedy Approach 23 95 

Micro League Baseball 28 95 

Statistics Disk (1984) 13.95 

Mig Alley Ace 23.95 

Night Mission Pinball 21 95 

One On One 28.95 

Pitstopll 27 95 

Questran 27 95 

Raid Over Moscow 27 95 

Solo Flight 23 95 

Strip Poker 20 95 

Tournament Tennis 17,95 

Zaxxon 24 95 

ADVENTURE AND MIND GAMES 

Amazon 23,95 

Adventure Construction Set 37,95 

Adventure Master 27 95 

Below the Root 18,95 

Bridge 4.0 17,95 

Cutthroats 28 95 

Dragonworld 23. 95 

Fahrenheit 451 23.95 

Felony 23.95 

Hitchhikers Guide 25.95 

Infidel 25 95 

Monty Plays Scrabble 27 95 

Murder By The Dozen 23 95 

Party Quiz 49 95 

Party Quiz Refills 17.95 

RendevouS With Rama 23.95 

Robots of Dawn 27.95 

Sargon III 34.95 

Seven Cities of Gold 28.95 

Starcross 26 95 

Suspended 26 95 

Swiss Family Robinson 18,95 

Trivia Fever 27.95 

Ultima If I 39,95 

Witness 25.95 

EDUCATIONAL PROGRAMS 

Agent USA 21 .95 

Cave of the Word Wizard 24 95 

CBS Success w/Math Series ea 18 95 

Evelyn Wood's Dynamic Reader 35 95 

Harcourt Brace Computer SAT 54 95 

Kidwriter 19.95 Memory Manor 19 95 

Muppet Learning Keys 49 95 

Spell It 33.95 

Spellicopter 27 95 

Slory Machine 22 95 

Word Attack 33 95 

WORD PROC.-DATE BASES- 
SPREADSHEETS 

Batteries Included Home Organizers 

Checkbook 20 95 

Electronic Address Book 20 95 

Home Inventory 20 95 

Mail List 20.95 

Photos/Siides/Movies 20 95 

Recipes 20.95 



Batteries Included Home Pak 34 95 

Calc Result Advanced 69.95 

Care Resull Easy 35.95 

Complete Personal Accountant 54.95 

Consultant (Delphi's Oracle) 68,95 

Cut and Paste 36.95 

Financial Cookbook 35.95 

Fleet Systems 56.95 

Magic Desk I 35.95 

Mirage Data Base Manager 67 95 

Mirage Word Processor 56 9S 

Net Worth 55.95 

Paperclip w/Spellpack 82 95 

PFSFile .55 95 

Practi Calc 34.95 

Practi File 34.95 

Superbase 64 52.95 

Total Text 2 6 31.95 

Total Mailing List & Labels 16.95 

GRAPHICS 

Animation Station 63.95 

Doodle 28,95 

Future House Light Pen 23,95 

Moviemaker 37 95 

Pen & Peripheral Vision 41 95 

Print Shop 31 95 

MISCELLANEOUS 

Bulk Discs - Quantities of 10 12-95 

CompuServe Starter Kit 21.95 

Fast Load 27 95 

Maxell Disks - Sox of 10 1 6 95 

Pro-Tech Vinyl Covers 5.35 

Simon's Basic 38 95 

Tac II Joystick 9 95 

Vidtex 2195 

VIP Terminal 29 95 



HARDWARE AND PERIPHERALS 

Bl 80 Column Display 134.95 

Cardco f G Interface 69.95 

Commodore 801 Ribbons 7.95 

Commodore Hardware CALL 

lodux Disk Drive 279.00 

Okmate 10 w/Plug and Print 199.00 

Okinate 10 Blk & Wht Ribbon 4.75 

Okmate 10 Color Ribbon 5.25 

Panasonic KXP1091 Printer 279.00 

Prownter 7500 Printer 229 00 

Prownter 8510 AP Printer 299.00 

Prownter 8510 Ribbons 5.95 

LEROY'S CHEATSHEETS S2.95 

Basic Paperclip 

Blanks (3) Practicalc 

Calc Result Adv Printers 
Calc Result Easy Epson RX80 

Comal (14) Gemini 10X 

The Consultant 1525/801' 

Doodle Quick Brown Fox 

Easy Script Simon's Basic 

Flight Simulator II Speedscript 

For the Beginner Sprites Only 

Hes Writer Superbase 64 

Logo Sheet 1 Terminals 
Logo Sheet 2 Smart 64 

The Manager Vidtex 

Multiplan VIP 

Word Pro 3/Plus 




SPECIALS 

Cardco Numeric Keypad 

32.95 

CompuServe Starter 

Kit/Vidtex 

39.95 

S-Games 

(Formerly Hes Games) 

11.95 



TOLL FREE 

1-800-633-8699 

In Pa. Call 
A.C. 717 838-8632 



ORDERING & TERMS 

• VISA & M.C. accepted with no 
charge in the continental U.S.A. 

' 52.50 shipping charge on orders 

under $100.00 

' Pa. Residents add 6% Sales Tax 

' Prices subject to change w/o 

notice 

* 48 hour shipping for cashier 
check - Money order - charge 
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MAPPING THE COMMODORE 64 by Sheldon 
Leemon (COMPUTE! Publications, Inc., 1984; $14.95). 
268 pages, 65536 memory locations, sof'thound. 

Mention memory map to a veteran peruser of computer 
journals and you will conjure up a vision of a nearly 
endless column of numbers, flanked by cryptic labels 
to the left and equally cryptic descriptive messages to 
the right. While this sort of information is eminently use- 
ful to those familiar with the innermost secrets of their 
computer, it provides the average user with very little 
that's definitive. 

Mapping Tlie Commodore 64 is a memory map with 
a difference. The list of numbers (in hexadecimal and 
decimal) is still there along with the cryptic labels and 
associated comments. However, comparing this book 
to a memory map is akin to comparing a detailed travel 
guide to a simple road map. Each significant address 
or group of addresses is annotated in considerable— yet 
concise — detail. These are not just one or two sentence 
descriptions. The shortest explanations run several para- 
graphs. The longest are actually comprehensive tutorials 
on the specific features on the Commodore 64. 

For example, the memory locations devoted to the VIC 
chip comprise a surprisingly thorough description of the 
graphics capabilities of the Commodore 64. This book 




"And nor only thai... but someday your name 
will be mud in the computer industry!' 



by my side proved a valuable aid in preparing the graph- 
ics articles for the October and November issues of Ahoy! 
Actually, the entire C-64 4K I/O block (53248-57343; 
SD000-$DFFF) spans nearly 100 pages. 

The layout follows the memory arrangement of the 
C-64. Thus chapter I is entitled "Page 0" in reference 
to the machine language notation for the first 256 bytes 
(0-255) of available memory. This has nothing to do with 
the page numbering of the book. As a result, the book 
lacks a definitive topical organization other than that 
which may be associated with a specific memory block. 
Beginners should take warning. Some idea of what you 
are looking for is needed to comfortably find your way 
around this format. Detailed explanations of specific lo- 
cations are often associated with other addresses which 
may be further on in the text. 

Specific areas of emphasis are the first kilobyte of 
RAM (used by BASIC and the operating system) and 
the ROMs themselves. Most of the addresses in the first 
group include useful hints and tips on the effect of modi- 
fying the contents of the particular location. The sec- 
ond group is broken down into the specific operating 
system routines. Brief descriptions are provided on just 
what each routine does. 

Sprinkled throughout are program examples in both 
BASIC and ML which are used to illustrate the various 
points. These range from brief one or two line affairs 
to full blown utilities. For example, the Vector to Key- 
board Table Setup Routine, addresses 655-656 (S28F- 
$290), includes a C-64 version of a keypress routine 
which generates an entire BASIC keyword from a single 
SHIFTcd or COMMODOREd keystroke. 

The index was a bit unusual. Rather than the custom- 
ary page numbers, each item was referenced to its actual 
memory address. On occasion this proved to be a minor 
boon, particular!)' when all that was needed was the actu- 
al address associated with the item in question. Most of 
the time, this arrangement was less than optimum as the 
relationship between page numbers and address was not 
immediately obvious (let's see now, 56576 should be 
around page 203 or thereabouts..,). The most serious 
flaw in this system was trying to find my way around 
the I/O block, which in the C-64 is multilayered. Track- 
ing down the description of the character generator ROM 
took a little doing. 

The appendix section was surprisingly brief, consist- 
ing only of a program typing guide and a list of the Com- 
modore ASCII, screen, color and key codes. You defin- 
itely get a lot of meat in this volume. 

Mapping the Commodore 64 is a must-have for any- 
one serious about using the 64 for anything other than 
running canned software. For beginners, appreciation 
will increase directly with their computational sophisti- 
cation. Advanced users will find many surprises within 
its covers. All users will find it a valuable aid in working 
with their machine. D —Morton Kevelson 
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A p P |N G 4 

A Function Plotter 
for the C-64 



4 



Ti his program will provide 
assistance in solving 
numerous problems in 
I physics, mathematics. 
and other fields where it is necessary 
to see the behavior of a mathemati- 
cal function. It will plot a function, 
in high resolution, into a given range 
on a small screen (which is large 
enough for most applications). It is 
practically error-proof and easy to 
use, employing the same principles 
as bit map graphics, but over a screen 
of only 9600 pixels (120 * 80). The 
user can specify the portion of the 
function he wants depicted, and 
change the function. 

For programmers, the listing on 
page 109 is easy to understand. It is 
composed almost entirely of subrou- 
tines, and contains many REM's 
throughout. 

HOW TO USE 
THE PROGRAM 

On the bottom of the screen, the 
names of all the keys that can be used 
are displayed. Their functions are as 
follows: 

fl: Graph Cleaner. Clears the 
small screen, but not the equation. 
You can ask for another range with- 
out respecifying the function. 

f3: Range Changer. When 
you press this key, the program will 
request the minimum value (XO) and 
the maximum value (XM) on the X- 
Axis into which you want to plot the 
function. It will then request the min- 
imum and maximum values on the 
Y-Axis (YO, YM). It will then ask for 

By JLM. Marcano 



the number of pixels you want to use 
in making the graphic. The plotting 
will follow this last input. 
f5: Function Changer. 

Changes the function in the program. 
It is located on line 55 of the pro- 
gram. After this operation the values 
of all the variables vanish, due to the 
fact that the program is ENDed and 
then RUN again. 

f 7: Compare with Memory. 
This key, when pressed once, shows 
the graphic on the screen together 



with the one in memory, in order to 
allow you to compare them. When 
you press the key again, it returns the 
screen to its original condition. 

f 2: Store M+. When this key is 
pressed, any graphic on the screen is 
copied into memory over any graph- 
ic residing there. 

f4: Recall. Calls the graphic in 
memory back, and puts it on the 
screen over any graphic that is there. 

f6: Clear Memory. D 
SEE PROGRAM LISTING ON PAGE 109 




On Screen Status Display 



PACE , 

LINE 

COL 



JUST B_ INStI 6AE 



.., 



FILENAME/ 

10 CPI *2»» USED 



BAUHAUS 



\T^,^ 



A ■ Cursor location 

B - Scroll Indicator 

C - Prlnl features currently being used 

D * Filename of text 

E - Percentage of RAM {memory) used 

F - Ruler (also message line) 

G - Word wrapfjustllicatlon flag 

H - 'Block marked' flag 

I • Insert mode flag 

J - Characters per inch 

K Number of the currenl font 

L ■ Name of the current font 



Overview of FONTM ASTER 
word processor features: 

1) Powerful block manipulation 
commands (Cut, Paste, Move, Overlay!. 

2) User • friendly effects Include (fonts, 
super/sub scripts, underlining, bold face, 
etc.) 

3) Up to eight different fonts can be used 
simultaneously. 

4] Many priming options such as page number- 
ing, titles, word-wrap, right justification, and 
more. 

5| Eight disk I/O commands (Save. Load, Verify, 
Erase, Etc.). 



Create Your Own or choose from over 15 type styles provided in this 
unique program. 

Including: Souhous English 
•look Italic 

t ^^^ l Bold Ha I rpa 1 n 



dJ-i-adnw Manhattan 

itop ScsOjat. 

9YTE itopbold 

urtopsprsdn t8J**Tn2> 



inc. 



(913)827-0685 
3010 Arnold Road Salina, KS 67401 
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If you 
enjoy 
playing 

MONOPOLY 

you'll 
love 

Nil IKK ! 




Ir's Fun For the Whole Family! 

Now you and your friends con enjoy a fast paced gome of SHARK while oil banking 
transactions, collecting of renrs, managing properties and other time consuming duties 
are handled automatically. 

With SHARK, you con: 

Buy and mortgage property 

Build and tear down houses 

List your cash, property and net worth 

Make DEALS and TRADES with other players 

Include or void different gome options 

Hove up to 6 people play at one time 



® 

REST 
AREA 



I 



LX1.J BZL: 



f: OHIO AVENUE 
LH I 
nrm ■ price s-120 

^^ 1j MORTGAGE VALUE S60 
. LUI . : EACH HOUSE COST 1 71 
I ■ RENT S12 



: WISH TO BUV 



■ b 



•'■■ : 



h|l|lji B il 
i 




(Screen Simulation) 



SI I IRK 



SAGE SOFTWARE 

P.O. Box 2576-F 
Freeporr. Tx 77541-2576 



Our Guarantee; If you ore nor 
satisfied with your disk, pleose 
rerurn ro 5oge Software for o 
free replacement. 



A Real Estate Trading Game 



YES. please send me SHARK 
DisKs) @ $25 (U.S.) each 

(Pleaie R-mfi 

Name . 

Cry . . Stole 



Send check or money order ro 
SAGE SOFTWARE 
P.O Box257fl-F 
Freeporr TX 77541-2578 



Address 



Z.p. 



Soge 5oftwore promises prompt delivery! 

I 

Cofrvnodore 64 u o regrtfeted rrodemark o' Commodate Duynesi NtacNnes l^c MonopoV b a twjiMefed rrocSemort* c* toiler frothm 



jHAftK B o roderrw* o' Sage Sofrware 
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OC/KD-P/MHT 

A Screen-Dump Utility for the C-64 



by Michael Beutjer 




dump thai will 
dump any one of the 
four screens by itself. 
To print your pictures, you 
must first save them to disk in the 
following format: 



lU 



lmost everyone loves to 
doodle, and your 64 is a 
great place to do it! 
Whether you use a light 
pen, joystick, trackball, or write spe- 
cial programs to make your high res- 
olution screens, the 320 x 200 sketch 
pad in your Commodore 64 is just 
plain fun. Sometimes, though, that 
doesn't seem to be enough. So why 
not 640 by 400? 

That's exactly what you'll get with 
Quad-Print, a printer utility that 
dumps four hi-res screens together to 
form one big picture. Versions are 
provided to work with the Commo- 
dore 1526. Epson, or Gemini print- 
ers. With a little work, you can prob- 
ably use any printer. Included with- 
in the 1526 version is a single screen 



Bytes 

- 1023 
1024 - 9023 



Contents 

Screen Memory 
Hi-res Bit map 



This is compatible with disk files 
created with DOODLE! from City 
Software, so you can use those pic- 
tures directly. Note that the color 
memory section is used only for dis- 
playing the pictures, not in the print- 
out. Making edges match is a little 
tricky at first, but with a little prac- 
tice it becomes much easier. 

The 1526 version begins on page 
95, and the Epson/Gemini version on 
page 97. If you type in the Epson/ 
Gemini version, only the set of con- 
trol code lines (1140 - 1190) corre- 
sponding to your printer should be 
typed. The number in line 565 must 
also be changed from 61145 to 61166 



for Gemini printers. 
Save the program before 
running it. When you run it. 
you will see a menu screen with de- 
scriptions of the program functions. 
The even numbered function keys 
load pictures from the disk drive. 
When answering the filename re- 
quest, be sure to type the DD prefix 
for DOODLE! files. The odd num- 
bered keys display the pictures cur- 
rently in memory. The pictures are 
numbered 1-4 and when they are 
printed together, they will be arranged 
according to Table 1. Check before 
you print your picture to be sure you 
have the four screens arranged prop- 
erly. If you need to swap pictures 
from one place to another, use the @ 
key from the main menu and enter 
the numbers of the screens you want 
to swap. Notice that your picture 
names are printed at the top of the 
menu screen to help you keep track 
of them. 

Other program functions are posi- 
tive or negative dump (English pound 
sign or left arrow key, respectively), 
and quick view screens (asterisk) 
which display the pictures in "slide 
show" fashion. To use the quick view 
feature, press the asterisk key from 
the main menu. Screen 1 will be dis- 
played, and you may cycle through 
the screens by pressing the odd num- 
bered function keys. To return to the 
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TABLE 1 




Picture No. 


Address 


Position 


1 
2 
3 
4 


$4000 
$6000 
$8000 
$A000 

TABLE 2 


Top Left 
Top Right 
Bottom Left 
Bottom Right 


ML Routine 


Epson/Gemini 
Address 


1596 Address 


Move Picture 
Display on/off 
Dump positive 
Dump negative 
Load picture 


49490 
49188 
49209 
49205 
49454 


49430 
49188 
49209 
49205 
49374 


Note that all "POKE" 


values are the same for either version. 



same way and the SYS addresses for 
it are in Table 2.) There are four ma- 
chine language subroutines that the 
BASIC program uses to handle the 
jobs of loading, moving, and print- 
ing your pictures. The move routine 
starts at 49490, and it moves both the 
bit map and the color information 
block anywhere in the computer's 
memory. To use it, we must pass the 
"from" and "to" addresses to the rou- 
tine. POKE the desired addresses as 
follows: 



POKE 


Value 




49152 


Bit Map 


From 


49153 


Bii Map 


To 


49154 


Color Into 


From 


49155 


Color Info 


To 



main menu, press the space bar. To 
use the single screen dump for the 
1526, press the up arrow key and in- 
dicate which screen (1-4) you wish to 



1526 VERSION 

Main Routine 



Quad-Pr int 
(C) 1984 

by M, Beutjer 

This program 
dumps 4 hi -res 
screens side by 
side to produce 
one 640 x 400 
pr i ntout on 
a 1 5 2 S printer. 



•=$C000 
DATA AREA 



dump. 

Let's look at the Epson/Gemini 
version to see how it works. (The 
1526 version works in generally the 



We need only POKE the high byte 
of these addresses — the low byte must 
always be zero. The routine moves 
the two areas independently: it is up 
to us to keep track of where we have 
put them. We may use any of the 



QUAD PRINT 
SOURCE CODE LISTINGS 



ORIG 

DEST 

CORIG 

CDEST 

LENGTH 

NAME 

PBLOCK 

ROWCNT 

COLCNT 

FCSAVE 

FBSAVE 

REVRSE 

TEMP 

FLAG 



.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
«=»+16 
.BYTE 






o 




0.0, 



0,0,0,0,0,0 
.BYTE 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



LABEL DEFINITIONS 

SCREEN=S2000 

SCRNl=$4O0O 

SCRN2=$S0D0 

SCRN3=$8000 

SCRN4=$A000 

CODES=SC1DO 



POINTR=$FB 




; KERNAL LABELS 


CHKOUT = $FFC9 




CHROUT=$FFD2 




CLOSE=$FFC3 




CLRCHN=$FFCC 




OPEN=SFFC0 




SETLFS=$FFBA 




SETNAM=$FFBD 




LOAD=$FFD5 




CLALL=$FFE7 




STOP=$FFEl 




UNLSN=$FFAE 




■ PROGRAM AREA 


I TURN HIRES 


SCREEN 


; ON OR OFF 


DISPL LDA 


SDL) 1 1 


EOR 


#$20 


STA 


$D011 


LDA 


$[1018 


EOR 


#$08 


STA 


$0018 


RTS 




• DUMP 


10UTINE 


; NEGATIVE ENTRY 


REV LDA 


#255 


BNE 


STORE 


• NORMAL ENTRY 


NOREVS LDA 


#0 


STORE STA 


REVRSE 


JSR 


COPEN 


; POINT TO 




; SCREEN 1 4; 2 


LDA 


#<SCRN1 


STA 


POINTR 


LDA 


#>SCRN1 



STA 


POINTR+1 




LDA 


FCSAVE 


LDA 


#<SCRN2 




STA 


$FC 


STA 


FBSAVE 


; SEND 


4 MORE 


LDA 


#>SCftN2 


; COLUMNS 




STA 


FCSAVE 




JSR 


DOCOL 


; 2 5 ROWS 


PER SCREEN 


; RESTORE SCREEN 


; PRINT 2 


SCREENS 


; POINTERS 




LDA 


#25 




LDA 


$FB 


STA 


ROWCNT 




STA 


FBSAVE 


JSR 


ROW 




LDA 


$FC 


; POINT TO 






STA 


FCSAVE 


; SCREEN 3 


Sc 4 




PLA 




LDA 


#<SCRN3 




STA 


$FC 


STA 


POINTR 




PLA 




LDA 


#>SCRN3 




STA 


SFB 


STA 


POINTR+1 


; CHECK STOP 


KEY 


LDA 


#<SCRN4 




JSR 


STOP 


STA 


FBSAVE 




BNE 


NOQUIT 


LDA 


#>SCRN4 




PLA 




STA 


FCSAVE 




PLA 




; PRINT 2 MORE! 




J MP 


QUIT 


LDA 


#25 


; NEXT 


ROW 




STA 


ROWCNT 


NOQUtT 


DEC 


ROWCNT 


JSR 


ROW 




BNE 


ROW 


QUIT JSR 


CFIN 




RTS 




RTS 














I PRINT 


COLUMNS 


■ DO 2 5 ROWS 








; OF 8 COLUMNS 


DOCOL 


LDA 


#40 








STA 


COLCNT 


■ SEND GRAPH 1 


COLUMN 


LDY 


to 


ROW JSR 


CLFD 


ROTATE 


LDX 


#0 


; SEND 4 COLUMNS 


; TURN 


OFF BASIC ROM 


JSR 


DOCOL 




SEI 




; SAVE POINTER 




LDA 


#46 


LDA 


$FB 




STA 


1 


PHA 






LDA 


(POINTR) 


LDA 


$FC 




STA 


TEMP 


PHA 




; TURN 


ON BASIC ROM 


; POINT TO 






LDA 


#47 


; SECOND SCREEN 




STA 


] 


LDA 


FBSAVE 




CL1 




STA 


$FB 


; SHIFT BITS 


INTO 
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Mix and match the hard- 
ware peripherals of your 
preference, increase your 
programming power with 
easier-to-use disk commands 
and machine language. All 
with one plug-in module. 

• lets you use almost any 
combination of 
Commodore-compatible 
floppy or hard disk drives 
and Centronics-type 
parallel printers 

• all interface functions and 
device allocations are set 
by switches on the 
BusCard II module; errors 
due to software incom- 
patibility are eliminated 

• includes BASIC 4.0, the 
same powerful language 
used in Commodore's top- 
of-the-line business com- 
puters, plus a machine 
language monitor 



Double your screen capacity 
when using your favourite 
Batteries Included software 
programs. B.1,-80 turns your 
40-column screen into a 
crystal-clear, high-visibility 
80-column display. Works 
with PaperClip word- 
processor and The Consul- 
tant database manager- 
maximum readability and 
minimum eye-strain, even 
with o screen full of 
characters. It's the fast, easy, 
plug-in way to get twice the 
amount of data onto your 
monitor screen. And B.I. -80 
also gives you the easier-to- 
use disk commands, with 
BASIC 4.0 language built 
right into the module. 

* fully self-initializing, no 
commands to enter; just 
plug B.I.-80 into the car- 
tridge slot and you're 
ready to run 

• switch back and forth 



between 80 and 40 col- 
umn display at any time 
completely eliminates 
snow, fuzziness, hashing 
and interference 
easy-to-install module 
incorporates highest 
quality hardware com- 
ponents throughout; one- 
year manufacturer's war- 
ranty is standard 
comes complete with 80- 
column operating system 
and comprehensive 
documentation, including 
full description of BASIC 
4.0 commands 
use with Commodore 
1701 and 1702 color 
monitors, or any 
monochrome video 
monitor 

NEWl] 




'B.I. -80 Column 
Adaptor coming soon for 
Atari XL computers! 



Use the printer of your 
choice with your Com- 
modore computer— just plug 
in this compact module, and 
you're instantly compatible! 
Take advantage of today's 
high-speed, high-quality 
printers with the B.I. Printer 
Interface. 

• works with any 
Centronics-type parallel 
printer, which includes 
almost all major printers 
on the market 

• completely self-contained 
and ready to run; no 
extras to buy, no hard- 
ware or software modifi- 
cations to printer or 
computer are required 

• all print functions are con- 
trolled by switches on the 
module; just set them 
once, and never worry 
about it again 



USE THESE TOOLS WITH RiperClip, Thelhfiaiteint, AND OTHER HARD-WORKING, HIGH-QUALITY SOFTWARE PROGRAMS FROM BATTERIES INCLUDED 



30 Mural Street 
Richmond Hill, Ontario 

LAB IBS CANADA 
I416I8B1-9941 
Telex: 06-21-8290 



<. 



batteries! 




INCLUDED 



> 



J 7875 Sky Park North, Suite P 

'The Energized Software Company!" '~' w 'l£'m»« 

WRITE TO US FOR FULL COLOUR CATALOGUE of our products for COMMODORE, ATARI, APPLE and IBM SYSTEMS <* 'SJ 881-9816 



FOR TECHNICAL SUPPORT OR PRODUCT INFORMATION PLEASE PHONE (4 161 881 -98)6 



Telex: 509-139 



C 1985 BATTERIES INCLUDED APPLE, ATARI, COMMODORE AND IBM AHE REGISTERED TRADEMARKS RESPECTIVELY OF APPLE COMPUTERS INC ATARI INC COMMODORE 

BUSINESS MACHINES I NC A ND i BM BU5INE SS M ACH.N ES INC 



firm hsirpely 




In 



f 



2'/. : r i,-.-: ; I ,i,r 




9 s 



B=- 



tukbtr J fUsii; 



[yPKll PlStl ;■-.: ■ .. 

of Itsls 
ttntrtl FUnufactirift? 



C-64's RAM including "under" the 
kernal or BASIC, but to avoid con- 
flicts the BASIC program doesn't 
store screen maps between $0000 and 



S1CO0 or SC000 to SCFFF, 

The display on/off routine toggles 
hi-res display on or off. The picture's 
bit map must already be at 8192 



(S2000) . and the screen memory sec- 
tion must be at 1024 ($0400). The 
BASIC program uses the move rou- 
tine to copy the desired picture into 
position, and the second to turn it on 
for viewing. When yon are finished 
viewing it. calling the second routine 
again will turn it off. 

The load routine is done from ma- 
chine language so that the address 
header of the disk file may be ignored 
easily. The routine loads the bit map 
file in the display area so that there 
are no conflicts with already loaded 
pictures. It is then moved to the de- 
sired location. Before using this rou- 
tine, the filename must be POKHd 
into the filename area at 49157, and 
the filename length must be POKEd 
into 49156. 

The print routine has two entry 
points: 49209 and 49205 for normal 
and negative printouts respectively. 
Table 1 gives the start address of the 
bit maps which are printed. Printer 



; PRINT AREA 

DOTS ASL TEMP 

ROL PBLCCK.X 

INX 

CPX #8 

BNE DOTS 

I NY 

CPY t8 

BNE ROTATE 

CLC 
; BUMP BIT MAP POINTER 

LDA POINTR 

ADC #8 

STA POINTR 

LDA POINTR+1 

ADC 10 

STA POINTR+1 

LDX #0 
; SEND TO 1526 

PRINT JSR CSEND 

DEC COLCNT 

BNE COLUMN 

RTS 



LOAD A DOODLE FILE 
AND MOVE IT. 

OPEN 1,8,0 

SCRNLD LDA #1 

LDX #8 

LDY #0 

JSR SETLFS 

LDA LENGTH 

LDX #<NAME 

LDY #>NAME 

JSR SETNAM 

LDA #0 
TAX 

j LOAD DOODLE AT 1C00 

LDY #S1C 

JSR LOAD 

LDA #1 

JSR CLOSE 

JSR CLRCHN 
RTS 

MOVE A DOODLE FILE 
FROM HUORIG LO = 00 
TO: HI=DEST LO=00 



Ml 



MOVE 



CMOVE 



LDY 


#0 


STY 


SFB 


LDX 


DEST 


STX 


SFC 


STY 


SFD 


LDX 


ORIG 


STX 


SFE 


STX 


TEMP 


INC 


TEMP 


I NY 




CPY 


#$20 


BNE 


Ml 


LDY 


#0 


SEI 




LDA 


146 


STA 


1 


LDA 


(SFD),Y 


STA 


($FB) ,Y 


LDA 


#47 


STA 


1 


CLI 


- 


INY 




BNE 


MOVE 


INC 


SFC 


INC 


SFE 


LDA 


SFE 


CMP 


TEMP 


BNE 


MOVE 


LDA 


CDEST 


STA 


SFC 


LDA 


CORIG 


STA 


SFE 


LDX 


#4 


SEI 




LDA 


#40 


STA 


1 


LDA 


(SFD).Y 


STA 


(SFB).Y 


INY 




BNE 


CMOVE 


INC 


SFC 


INC 


SFE 


DEX 




BNE 


CMOVE 


LDA 


147 


STA 


1 


CLI 




RTS 





CRSR .BYTE 

.LIB QUICKQ1526 
.LIB SING1526 
.END 

Fast Dump Routine 

Fast 1526 graphic 
dump routine 
for Quad Pr in t 

OPEN4,4,255 (DATA) 

COPEN LDA #4 

TAX 

LDY #25 5 

JSR SETLFS 

LDA #0 

JSR SETNAM 

JSR OPEN 

BCS COl 
; OPEN6.4 ,6(SPAC1NG) 

LDA #6 

TAY 

LDX #4 

JSR SETLFS 

LDA #0 

JSR SETNAM 

JSR OPEN 

BCS COl 
; OPEN 5,4,5 
; (PROGRAM CHAR. ) 

LDA #5 

TAY 

LDX #4 

JSR SETLFS 

LDA 10 

JSR SETNAM 

JSR OPEN 

BCS COl 

JSR SETSPC 

CLC 
COl RTS 
; SET SPACING TO" 2 1 " 

SETSPC LDX #6 

JSR CHKOUT 

LDA #21 

JSR CHROUT 

LDA #13 

JSR CHROUT 



JSR UNLSN 
JSR CLRCHN 
; SEND A LINEFEED 
CLFD LDX #4 

JSR CHKOUT 
LDA #13 
JSR CHROUT 
JSR UNLSN 
JSR CLRCHN 
LDA #a 
STA CRSR 
RTS 
; THIS ROUTINE 
; PERFORMS 

i THE SEND FUNCTION. 
j BEFORE THE NEW 
; CHAR IS PROGRAMMED 
j IT IS CHECKED 
; AGAINST THE 
; OLD CHARACTER TO 
; AVOID UNNECESSARY 
; CARRIAGE RETURNS. 
CSEND JSR CHECK 
; SEND OLD CHAR. 
BEQ CSN 1 
LDX #4 
JSR CHKOUT 
LDA 1141 
JSR CHROUT 
JSR UNLSN 
JSR CLRCHN 
LDX #5 
JSR CHKOUT 
LDX #0 
SEN1 LDA PBLOCK.X 
EOR SEVRSE 
JSK CHROUT 
INX 

CPX #8 
BNE SEN1 
JSR UNLSN 
BIAS LDX #4 

JSR CHKOUT 
LDX CRSR 
Bll BEQ BI2 
LDA #3 2 
JSR CHROUT 
DEX 
JMP Bll 
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"THE CONSULTANT is capable of very large and complicated searches. 
It is a very goodsvstem at a reasonable price. Documentation: excellent, overall rating: 9/10' 

-TPUG MAGAZINE 

". . . vou should definitely try out THE CONSULTANT. . . powerful and very well designed." 

-EVERYTHING YOU CAN DO WITH YOUR COMMODORE, 1984 EDITION 

"For a truly professional data management program, you will have to look a long 
time before you find a better one than THE CONSULTANT" 

-HOME APPLICATIONS FOR THE C-64 




the NEW 



-535=.-" " 



• flex 



itft 



9 pa^ s 



exp* n 

17000 



dabte 



m s"' 



iictute 
tec 



ord 



to 



W* w *&mHe4 



total i 
ord) 



umb« 



t« 



ndsiw 



b! 



fi\c W 



disc 



space 



tuaUy 






ted 



fofflaes 



"* *«?!!= and 



ihtetic* 



ted* 



orting 



1 sub-sort 



up 



to 



9 criteria 



man 



label 



tun C uons,us^ andt 
• *"*"•!„ routine* aVl0 v/mg 

80 cob""" rep 

Like a smart, computerized filing cabinet, THE CONSULTANT controls your information for you. You choose the file sire and 

format - THE CONSULTANT'S flexible file structure adapts to almost any application you can think of. And you can change the 

structure of your files without having to re-enter any data - a great time saver. Easy to learn and simple to use. Big system speed and 

sophisticated sorting functions, ail for an exceptionally low price. No wonder THE CONSULTANT comes highly recommended! 

AVAILABLE NOW FOR THE COMMODORE 64. COMING SOON FOR THE IBM PC. 



■■P ■" 



30 Mural Street 
Richmond Hill, Ontario 

MB IBS CANADA 
14161 BBI-9941 

Telex: 06-21-8290 





1 7875 Sky Park North, Suite P 
Irving, California 

USA 927T4 
14161881-9816 
WRIT! TO US FOR FULL COLOUR CATALOGUE Of Our products for COMMODORE, ATARI, APPLE and IBM SYSTEMS Telex: 509-139 



"The Energized Software Company!' 



FOP TECHNICAL SUPPORT OP PRODUCT INFORMATION PLEASE PHONE 14151 881-9816 



1985 BATTERIES INCLUDED. APPLE, ATARI. COMMODORE AND IBM ARE REGISTERED TRADEMARKS RBSPECTIYSIT OF APPLE COMPUTERS INC.. ATARI INC . COMMODORE 

BUSINESS MACHINES INC AND IBM BUSINESS MACHINES INC. 
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Single screen dump on a Commodore 1526 printer. 



setup information for the Epson/ 
Gemini version is contained in the 



modules at the end of the DATA 
statements. The first byte of each 



command contains the number of 
bytes in the command string followed 
by the actual string. The line spac- 
ing command area begins at 49600 
(SC1C0); the line graphics setup 
command begins at 49608 (SC1C8). 
If you have a printer other than Ep- 
son or Gemini, you will need to 
change these values to those recog- 
nized by your printer. This will not 
guarantee that the routine will work, 
because there are differences in the 
way printers translate graphics codes 
into print patterns. The Epson and 
Gemini patterns print bit 7 at the top 
and bit at the bottom of each col- 
umn of eight dots of graphics byte. 
If your printer is different, you may 
need to do another translation of the 
printer codes before you print them; 
however you will have to use the 
source code (reproduced on these 
pages) and an assembler to do this. 



CRSR 

#254 
CHROUT 
UNLSN 
CLRCHN 

PBLSV 



DONE 
CFIN 



[«C 

LDA 

JSR 

JSR 

JSR 

JSR 

RTS 
CLOSE CHANS. 

JSR CLFD 
#6 

CHKOUT 
124 

CHROUT 
#13 

CHROUT 
UNLSN 
CLRCHN 
CLALL 



; SEND 
CSN1 



LDX 

JSR 

LDA 

JSR 

LDA 

JSR 

JSR 

JSR 

JSR 

RTS 

SAME CHAR AGAIN 

LDX M 

CHKOUT 

#254 

CHROUT 

UNLSN 

CLRCHN 

CRSR 



CHECK 
CHK1 



CKOUT 
PBLSV 
PBLl 



PBSAVE 



JSR 

LDA 

JSR 

JSR 

JSR 

INC 

RTS 

LDX 

LDA 

CMP 

BNE 

[NX 

CPX 

BNE 

RTS 

LDX 

LDA 

STA 

INX 

CPX 

BNE 

RTS 

.BYTE 

.END 



10 

PBLCCK.X 
PBSAVE, X 
CKOUT 

la 

CHKl 

#0 

PBLCCK.X 
PBSAVE, X 

18 

PBLl 



Sinsle Screen Dump 

;This routine sends 
;a single 1526 pic. 
REV1 LDA #2 5 5 

BNE STORE I 



NOREV1 LDA 
STORE 1 STA 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
JSR 
BNE 
JMP 
DEC 
BNE 
JSR 
RTS 
.END 



ROW! 



NOQ1 



DONE 




EPSON GEMINI 
VERSION 



Quad-Pr i nt 

(C> 1984 
by M. Beutjer 

This program dumps 
4 hi -res screens 
side by s i de to 
produce one 

840 x 400 pr i ti tout . 



*=*C00O 
DATA AREA 



ORIG 
DEST 

CORIG 

CDEST 

LENGTH 

NAME 

PRNTLN 

ROWCNT 
COLCNT 
FCSAVE 
FBSAVE 



.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

•=•+16 

.BYTE 









0,0,0, 



0,0.0,0,0 
, BYT E 



BYTE 
BYTE 
BYTE 



REVRSE .BYTE 
TEMP .BYTE 
FLAG .BYTE 




LABEL DEFINITIONS 

SCREEN=$2000 

SCRN1=S4000 

SCRN2=$6000 

SCRN3=SS000 

SCRN4=$A000 

CODES=$C1DO 

POINTR=SFB 

KERNAL LABELS 

CHKOUT=*FFC9 

CHROUT=JFFD2 

CLOSE=SFFC3 

CLRCHN=$FFCC 

OPEN=$FFC0 

SETLFS=$FFBA 

SETNAM=$FFBD 

LOAD=$FFD5 

CLALL=SFFE7 

STOP=$FFEl 

PROGRAM AREA 



TURN HIRES SCREEN 

ON OR OFF 

DISPL LDA JDO 11 

EOR #$20 

STA $D011 

LDA SD01S 

EOR #$08 

STA SD01S 
RTS 



DUMP ROUTINE 



NEGATIVE ENTRY 
REV LDA #255 
BNE STORE 

; NORMAL ENTRY 



NOREVS LDA 
STORE STA 
; OPEN 4,4, 

LDA 
LDX 



#0 
REVRSE 



#4 
#4 



JSR 


SETLFS 


LDA 


#0 


JSR 


SETNAM 


JSR 


OPEN 


DIRECT OUTPUT 


TO DEVICE 


4 


LDX 


#4 


JSR 


CHKOUT 


POINT TO 


SCREEN 1 


AND 2 




LDA 


#<SCRN1 


STA 


POINTR 


LDA 


#>SCRN1 


STA 


POTNTR+1 


LDA 


#<SCRN2 


STA 


FBSAVE 


LDA 


#>SCRN2 


STA 


FCSAVE 


SET PRINTER LINE 


SPACING 




LDX 


#<SPCMLN 


JSR 


PNTCMD 


JSR 


CHROUT 


2 5 ROWS PER SCREEN 


LDA 


#25 


STA 


ROWCNT 


PRINT 2 SCREENS! 


JSR 


ROW 


POINT TO 


SCREEN 3 


AND 4 




LDA 


#<SCRN3 


STA 


POINTR 


LDA 


#>SCRN3 


STA 


POINTR+1 


LDA 


#<SCRN4 


STA 


FBSAVE 


LDA 


#>SCRN4 


STA 


FCSAVE 


LDA 


#25 


STA 


ROWCNT 


PRINT 2 MORE! 


JSR 


ROW 


SEND PRINTER 


RESET CODE 


IT LDA 


#27 


JSR 


CHROUT 


LDA 


#64 


JSR 


CHROUT 


LDA 


#4 


CLOSE CHANNEL 


JSR 


CLOSE 
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Ahoy! uses on/y 

rnaxell 

premium quality disks. 



We're sure you're looking forward to trying out the programs in this issue of 
Ahoy! But we're equally sure that you're not looking forward to typing them in. If 
you're an average typist, that should take you upwards of 25 hours. Not counting time 
spent correcting your typing errors, of course. How long that will take is anyone's guess. 
• How would you like someone to type the programs for you? At a price o,, say— 32$ 
an hour? Wouldn't it be worth 32c an hour to free yourself up for more pleasant pursuits- 
like enjoying the rest of your Ahoy! magazine? • If you order the Ahoy! Program Disk or 
Cassette, you'll be getting that service for just under 32C an hour. Because for $7.95 (postage 
included)? we'll mail you all the programs in this issue, on a disk or cassette that's tested and 
ready to run with your C-64 or VIC 20. If you subscribe, you'll save even more: 12 monthly 
disks or cassettes for $79.95, 24 for $149.95 (postage included)*. Back issues are available as 
well. • You already know how to type. Why not use the hours you spend with your Commodore 
to learn something new? 'Canadian and foreign prices higher. 



SINGLE ISSUE AND SUBSCRIPTION PRICES 



(Postage and Handling Included) 
U.S.A. 

□ June '85 Ahoy! Disk $ 7 g 5 

□ June '85 Ahoy! Cassette 



CANADA ELSEWHERE 



S 12 95 



S 13.95 



BACK ISSUES 

Jan. '84 issue $9.95; all other back issues S8.95. 
Indicate your choices below, and specify disk 
or cassette at the bottom. In Canada add S2.00 
per issue; outside U.S. and Canada add $4.00 
per issue, 



□ 12-Month Disk Subscription 

□ 12-Month Cassette Subscription 



$ 79.95 



$ 99.95 



$124.95 



□ 24-Month Disk Subscription 
D 24-Month Cassette Subscription 



$149.95 



$179.95 



Make check or money order payable to Double L Software. 
Send coupon or facsimile to: NAME 



N.Y 



Jan, '84 



G. 



$9.95 
38.95 
$8.95 





$8.95 

S8.95 

38.95 


38.95 


-- 


38.95 



SPECIFY 

□ DISK D CASSETTE 
State Residents must add 8V«% sales tax. 



Ahoy! Program Disk/Cassette 
Ion Internationa! Inc. 
45 West 34th Street, Suite 407 
New York, NY 10001 



ADDRESS. 
CITY 



STATE 



_ZIP_ 




HsSCClitlOB of 
CoHMdert 

Enthusiasts 
Soutujst 



Quad-Print dump on a Commodore 1526 printer. 



You should also keep in mind the 
feet that the interface you use (for 
your Epson or Gemini printer) will 
affect the graphics operation. These 
programs assume that your printer 
does no translation of the data that 
is sent by the computer (transparent), 
and that the printer will do a linefeed 
automatically whenever it receives a 



carriage return. 

For those of you using the 1526 
version, I'm sure you will notice that 
your printer seems to do a lot of mov- 
ing back and forth to print the pic- 
tures. Unfortunately, this seems to be 
unavoidable due to the way Commo- 
dore has set up the graphics for this 
printer. According to the manual, you 



may print one graphics character per 
line. The only way to print more than 
one graphics character per line is to 
send the printer a CHRS041), or S8D 
hex, which is a "line reset" command. 
This command causes a carriage re- 
turn without a linefeed, and that is 
why you see all the shaking. I don't 
think it will cause any problems, as 
I have dumped numerous pictures on 
mine. If there is a better way to do 
this. I haven't seen it. (But I would 
like to!) 

Although hi-res screen design pro- 
grams for the 64 are presently lim- 
ited to one screen for the "sketch pad," 
this utility will allow you to do a lot 
of designs with your computer and 
printer that are not yet possible any 
other way. Good luck and happy 
doodling! □ 
SEE PROGRAM L1STIXGS OS PAGE 95 



JSR CLRCHN ( 


COLUMN LDY #0 


AT 1C0O 




LDA #4 


RTS 


KIT ATE LDX #0 


LDA 


LENGTH 


STA 1 






, TURN OFF BASIC ROM 


LDX 


#<NAME 


CMOVE LDA (SFD),Y 




• DO 2 5 ROWS 


SEI 


LDY 


»>NAME 


STA ($FB),Y 




; OF 80 COLUMNS 


LDA #46 


JSR 


SETNAVJ 


INY 






STA 1 


LDA 


10 


BNE CMOVE 




; SEND GRAPHICS 


LDA (POIN'TR).Y 


TAX 




INC SFC 




, SETUP COMMAND 


STA TEMP 


LDY 


#S1C 


INC SFE 


ROW LDX #<LHCMt,N 


TURN ON BASIC ROM 


JSR 


LOAD 


DEX 


JSR PNTCMD 


LDA #47 


LDA 


#1 


BNE CMOVE 


; SEND 40 COLUMNS 


STA 1 


JSR 


CLOSE 


LDA #47 


JSR DOCOL 


CI. I 


JSR 


CLRCHS 


STA 1 


: SAVE POINTER 


SHIFT BITS 


RTS 




CM 


LDA SFH 


INTO PRINT AREA 






RTS 


PHA 


)OTS ASL TEMP 


MOVE A DOODLE 


PNTCMD STX PNTOUT* 2 


LDA |FC 


HOL PRNTLN.X 


FILE FROM 


STX CMPAREM 


PHA 


I NX 


Ht=ORIG 


LO=00 


LDY #0 


; POINT TO 


CPX #8 


TO: H1=DES 


LDX #0 


; SECOND SCREEN 


BNE DOTS 






PNTOUT INX 


LDA 


I NY 


LDY 


#0 


LDA LNCMLN, X 


STA SHI 


CPY #8 


STY 


SFB 


JSR CHROUT 


LDA FCSAVE 


BNE ROTATE 


LDX 


DEST 


TXA 


STA SFC 


BUMP BIT MAP 


STX 


SFC 


CMPARE CMP LNCMLN. Y 


i SEND 4 MORE COLS. 


POINTER 


STY 


SFD 


BMI PNTOUT 


JSR DOCOL 


CLC 


LDX 


ORIG 


RTS 


j RESTORE SCREEN 


LDA POINTR 


STX 


SFE 




; POINTERS 


ADC #8 


STX 


TEMP 


; EPSON PRINTER 


LDA S '■' U 


STA POINTK y 


11 INC 


TEMP 


; CONTROL CODES 


STA FBSAVE 


LDA POINTR- 1 


INY 






LDA ill' 


ADC *0 


CPY 


#$20 


; LNCMLN IS 


STA PCSAVE 


STA POINTH-1 


BNE 


Ml 


; LINE COMMAND LENGTH 


PLA 


LDX #0 


LDY 


#0 


; (NO. OF BYTES) 


STA SFC 


SEND GRAPHICS t 


10VE SEI 




LNCMLN .BYTE 5 


PLA 


TO PRINTER 


LDA 


#46 




STA $ F R 


*«INT LDA PRNTLN.X 


STA 


1 


; LINDAT IS 


! CARRIAGE RETURN 


EOR REVRSE 


LDA 


(SFD).Y 


; PRINTER SETUP 


LDA # 1 3 


JSR CHROUT 


STA 


<$FB),Y 


; COMMAND: 


JSR OHHOUT 


INX 


LDA 


#47 


; ESC.*. 6, 128,2 


; CHECK STOP KEY 


CPX 18 


STA 


1 


LINDAT .BYTE 


JSR STOP 


BNE PRINT 


CL 1 




27,42,6 , 128.2 


BNE NOQUIT 


DEC COLCNT 


INY 






PLA 


BNE COLUMN 


BNE 


MOVE 


•=LNCMLN-10 


PLA 


RTS 


INC 


SFC 


; SPCMLN IS 


JMP QUIT 




INC 


SFE 


; LENGTH OF 


; NEXT ROW 


LOAD A DOODLE 


LDA 


SFE 


1 LINE SPACING 


NOQUIT DEC ROW; NT 


FILE AND MOVE IT. 


CMP 


TEMP 


; COMMAND 


BNE ROW 




BNE 


MOVE 


SPCMLN .BYTE 3 


RTS 


OPEN 1,8,0 


LDA 


CDEST 






, 


SCRNLD LDA #1 


STA 


SFC 


■ SPCDAT IS 




PRINT 40 COI J 


LDX Kg 


LDA 


CORIG 


i PRINTER SPACING 






LDY # 


STA 


SFE 


; COMMAND: ESC. A, 8 


DUCUL LDA 


JSR SETLFS 


LDX 


14 


SPCDAT .BYTE 27,6 5,8 
.END 


STA 


LOAD DOODLE 


SE! 




5 
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INNOVATIVE ORGANIZERS, INC. 
For Commodore 64" & VIC-20 



TM 




WELCOME, to the family of INNOVATIVE ORGANIZERS. These ATTRAC- 
TIVE power organizer stands, made of ABS PLASTICS, U.L. RATED, provide an 
opportunity for a more PROFESSIONAL looking computer installation, both at 
HOME and in the WORK PLACE. 

There is AMPLE room under the organizer to place all the computer 
accessories: POWER SUPPLY, MODEM, GAME CARTRIDGES, MEMORY 
EXPANSION, and MUCH MORE. 

Now, let's examine how these organizers work. There are 3 CRT-Models. 
CRT-1 holds a Monitor or T.V. Set and a VIC 20 or 64. All wires & cartridges fit 
neatly under the organizer. 

CRT-2 same as CRT-1, but also has: ONE-STEP MASTER SWITCH (permits 4 
pieces of hardware to be turned on and off from one switch, plus circuit protection, 
incoming power fused with 6AMP Fuse). 

CRT-3 same as CRT-2. but also has: SURGE & SPIKE PROTECTION built in. 
P-D-l: HOLDS 1525 PRINTER & 1541 DISK DRIVE. 
All wires & cartridges fit neatly under the organizer. 

Ask about our Power Lock Switch & Power Portable 
Computer Fan & 2 Outlet Surge & Spike Protection. 

CALL FOR LIST OF SOFTWARE AVAILABLE 

\K 3(1 .""! Cuntmudun' W are iradrnurks «F Commudiwi Ektlrnnicv I i D 



P.O. Box 108. Markleville. IN 46056 



Header Service No. 276 




CRT-1 
CRT-2 
CRT-3 
P-D-l 



$17.98 
$29.97 
$37.97 
$19.48 



Optional Accessories 

SS-1 Surge & Spike 
Suppressor 

$29.95 

CF-1 Computer Fan 
$29.95 



Plus Shipping 

CALL TOLL FREE 

1-800-233-3645 Ext. 15 



For the Unexpanded VIC 20 

By Kevin Dewey 



I - n this game you are Speedy, the fastest being in 
the universe — not an amazing accomplishment, 
seeing that no one else can move. Your goal is 
to collect all your smiley-faced green friends for 

a party you're throwing, while avoiding your frowning 
purple enemies, who are no fun at all, and in fact tend 
to make you explode upon contact with them. Yes, they 
are party poopers. 

You get seven little Speedy clones to do this, and you 
gain another for every screen of friends you successfully 
clear. Speedy clones move very fast, and in all directions, 
so good reflexes and hand-eye coordination come in 
handy, but it's wise to also incorporate a bit of strategy 
into your gameplay. For instance, try to find the easiest 
ways to get a friend out from a group of enemies before 
plunging into the group. This, as well as other ways of 
using brain power instead of relying solely on a fast hand, 
will affect the outcome of the game for the better. 

SCORING 

The game is scored as follows. Every friend you pick 
up is worth seven points. Every bonus token is worth 

the number of the screen you are on. multiplied by the 



number of friends you have picked up thus far on that 
screen. For this reason, it is best to pick up a lot of your 
friends on a screen, and then pick up the bonus object 
when there are, say, one or two friends left, to maxi- 
mize your score. The bonus objects a're easy to spot, 
because they look unlike anything else. 

At the end of the game, 50 bonus points are awarded 
for each screen you have successfully passed during the 
course of the game. 

SKILL LEVELS 

There are 15 skill levels, 1 being the easiest and 15 
being the hardest. The main difference between the skill 
levels is in the amount of enemies. On screens like 15 
there will be a great deal more purple faces than on the 
easier screens, but this can be looked at two ways. While 
it is harder to clear a screen of goodies when there are 
a lot of enemies around, the higher the skill level, the 
more the bonus token is worth, and the more points are 
possible. To get really high scores, you must learn to play 
well on the harder screens. 

I hope you enjoy playing Speedyl □ 

SEE PROGRAM LISTING ON PAGE 108 




the Short Wave Listener for 

RECEPTION OF MORSE CODE & 
RADIO TELETYPE SIGNALS. 









Plug the SWL cartridge into your Commodore "64" Expansion Port, connect a 
shortwave radio and you'll be watching text readout from weather stations, 
news services, ships and HAM radio operators all over the world. A whole 
new use for your home computer. The SWL contains both program in 
ROM and radio interface circuit to copy Morse code and all 
speeds/shifts of radio teletype. Plus the on screen tuning 
indicators mean you never have to take your eyes off the video 
for perfect tuning. Housed in a small 3"x 2-1/2" x 7/8" y _* 

enclosure, with speaker in/out and practice hand key >^ A jP, 
jacks, it needs no olher computer connection or j/\.<& *\Vp 



n^I^X LEARN 



*« 



& 



<# : 



«s 



$>X MORSE CODE 



power supply. Unshift on space, word wrap 
around, real time clock, and keyword or 
manual printer control for permanent 
paper copy, so that you won't miss a 
single bit of the action. For about 
the price of another "Pac-Zapper 
game, you can tie into the 
exciting world of digital 
communication with 
the Microlog SWL. 



■# 



.A° 






S 



64 



n 



o 



6 



<$■ S A complete Morse code tutor in a conveni 



THE RIGHT WAY 
WITH THE 

Morse Coach. 

54995 



«?" 



# 



ent plug-in cartridge for your Commodore 
64." The Morse Coach means business. It's 
not a toy program or a simple random code gen- 
erator. Originally developed jointly by Microlog and 
several government agencies experienced in Morse in- 
struction. Four years of extensive service prove it's the 
quickest way to Morse proficiency.The method works! You start from absolutely no 
knowledge of Morse, progress through the alphanumeric symbols, and on to any speed 
desired. The "alphabet" part of the program introduces new characters and plots the progress 
on a bar-chart. The speed/test section correlates the input, analyzes mistakes and provides a 
printout of the analysis/test results on your Commodore screen or printer. As a bonus, it also boosts 
typing skill. You've never seen any tape or program do that! In fact, there's never been a system so 
thorough, so efficient and so effective as the Microlog Morse Coach. 
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at TUSSEY COMPUTER PRODUCTS*. . . 

WE KNOW WHAT YOU WANT! 




We tut a bill tail u1 pfittt 1 



WE VALUE YOUR BUSINESS. IN ORDER TO EARN IT, WE ARE GOING TO GIVE YOU THE THINGS YOU WANT MOST FROM A MAIL ORDER COMPUTER STORE 
1 1 Low Prices! We try to have the lowest puces around. II you do f mil a lower price. 3) Straight talk - We will give you accurate inlarmalion as to our stocking condition 

please give us a chance to beat it 
2) Fast, dependable service - Our shipping department works hard to get your 4) Personnel mho care ■ The people at TCP sincerely want you to be happy with 

orders out quickly, usually within one business day. the way your order is handled We all know our |obs depend on having a happy 

ORDERS ONLY PLEASE 800-468-9044 INFORMATION & PA ORDERS: 814-234-2236 

PHONE LINES OPEN 10-8 M0N-FR1, 10-5 SAT 



THE PANASONIC KXP 1091 PRINTER 
Near letter quality at the flick ol a switch 

The 1Q9! ;■■-. along at 120cpi anS hai a Ik tmtitt h alu ms f.T.t 
prml mgdfi gl ifct Gf mail 1 0X »nd Epinr RJ- 80, p.lui * BIG diHgrcnct 
The 1091 hn i near itltir ouatety switch Flipn aodyougira juptftigfti 
12 Br IB miini *nth tharacierj itiat rnU a daily whitl I The 1091 his 
talh IdCtion and lia:toi Ind 

Our price $279.00 

Panasonic KXP 1090 $199.00 

[does rot have near Idler quality) 

SG ID. NLQ Dot Matrix from Star Call 



Geironi IO> 

56 15... 

Portenirpr 




- S234 00- 

Call 

I B cpt. lener quahi> 5329 Ofr 



PRINTER INTERFACES 



Xeiec GPI ....... * T6 99 

Xelec SP./B . I 59 93 

Xciec SPI i 43 99 

Caj/rjco ?/»G i 67 00 

OrJco'B I 44 00 

Caidco PS Interlace Cti I 



Hie Comu'iani 1 63 99 

Mirage Database Manager, 

Repoil Geiieraior i 63 99 

SuLieibase 64[d| 1 &6 99 

Data Manager II t>y TmieAorks , . $ 32 99' 

PiacM.ie &- MS)tJJ I 3? 00 



Tolal Telecom [1650 compatible) 1 5500 

CainniorJore 1 660 New' Call 

Co'upuierrt siauer kit s 2695 

Westndgs modem % 76.95 

ViP terminal package by Soltla*-* S 33 95 

Vjdtes Terminal j 3D 00 

Vjrjtgj plus CompuServe Slarlei S 49 99 



WORD PROCESSORS 



Word Piocbhoi fir Piolinefd} ...... I 39 99 

WrjrdjjiD 3- '64 w-ipellrighliitii s 59 GO 

PaueiclipiBi i 59 00 

Papej-d'ip .# spellpack|d| s 76 39 

Caicko Wriie Now/64 |taii| . ... s 37 00 

Mnage Professional W P |d l S 59 00 

OiTira Wrier /Speller (ft s 45 OO 

Ward Wnierid) by Tmiewprks .......... f 32.99 

Script §4 S 39 99 



Lighl pw! j 23G0 

Numeric keypad „ s 35 00 

5 sioi eifj nurfau CB/ 5 ........... . s 58 00 

Mai! Noft/64 s 32 00 

Spell Htm i 3139 

hie flow ...... s 2795 

Gr^pJi Nua , , CjdJ 



Carflgj LQ1 fcflef qualrh. printer (42SDU 

Cajrko tU3 sil 900 

Epson RX.BO... 1725 DD 

Epson Pr mien Call 

Dkidsta Printers , , .Call 

Hush 60 110900 

'Star Mitiorncs printers came -a in a 1 rear warrant 1 



1541 Express by RTC 5 73 99 

Smart Cable i 4995 

Bl 80 Batteries including 30 column card *ilh 

Basfc 4 dv.Ii m s 1 37 99 

EteCari n by Baiienei included Call 



SPREADSHEETS 



Calc PesuU Adv |d. cil) ............. \ 67 00 

Calc fiesutl Easy lean) s 33 99 

PS (frog Spreadsheet^) S 49.99 

Practical! 64|d) I 3B 00 

Practical: 64(1) % 34.00 



Zenith 1 2" Ambef t 97 00 

Zenith 1 Z" Green 1 92.00 

Satata SC 100 Color Monitor 1239 DO 

AmiJek Color i Pius sZ59 00 

Cable lor manners : 9 95 

1702 Call 



MISCELLANEOUS 



K/oalpad w/pamiei|d|... . 

Spellpro 64|dl By proline . 
Mailpro 64 ........... 

ComjjIeK Personal fircounlai.l|d| . . 




NEW PRODUCTS 



Tinj rrnni Sohsync. Integrated WP. 

DataBase, SprearJtheei Call 

rioniEpak Irani Bai Incl . Inlegjated W f . 

Database leletoriitnunicalions Call 

Vi/aslar Inl Spitadsrieei Daiarjaj« 

Ousiness Gr aphics , , + Call 

tpy< Fast Luad Call 

Erode round Prim Siiop i j,| yg 

Pteau Note: When we ask you ID catl Irjr a pfice i: s 
because prrces OH tIMose ileitis j-t yglaiile .'.! wr 
Mant iq oe sure tut can i/ire ytm trie Idmcsi pnte^ At 



"DEALER INQUIRIES INVITED" 

Other product lines available! Call for prices. 



Psl 64 assembler try Pioltne[rJ| J 1999 

Power 64 Basic by Prcl>ne(d| t 39 99 

Toolbox €4 buthi Pat 64 and Power B4|d] I 69 99 

Canada A/M backup prggiam I 39 95 

Stmori'i Banc I 39 95 

CSM 1541 Alignineni s 32 99 



65 0C 
39 99 
39 99 
54 Q0 



The Home iccouniant t 36 95 

Timeworks irtvemory. A P. A/Ft, Cash Flow 
Management. Geriera. ledger. Payroll 

Management $40 95 each 

54 Dotior s 24 95 

FCM, Fusi Dasi Mad l 36 95 

Super Sketch J 39 39 



DISK DRIVES 



MSO SDI ,. (239 SO 

MSO SOU Call 

Indus GT Ouk Dfjrt Call 

1S41 ,,, Call 



mmmteaamamatm 

Commodore 64 is $147.00* 

"Willi the puichase of any printer, disk drive, monitor, or modern 

1541 Disk Drive SI 95 00 

1702 Color Monitor S 195 00 

1660 Modem Call 

Plos 4. C-16. others Call 

SX 64 U9!i 06 



NEW PRINTER FROM STAR! 

The SG= 1 is an upgrade of Ihe [jujhiIji Gemini 1 OX It runs ,v 120 
CFS. and has all (ho print modes ot Him I OX What makos this pnniei 
different is 9 near let J er quality mude at 60 CPS. '.Mill & I 7 by II 
matrix' With this mode the printer does double duly, elimmaiiny aneed 
for a telle' quality punier li also includes a built in 2k bullet, and ,.i 
1 year warranty 
PLEAS£ CALL FOR OUR LOW PRfCE' 



BUY A BUNDLE— 
$AVE A BUNDLE 

Order one of These popular packages of products by number tot super 
savings! 



Package "5 



WORD PROCESSOR 54 and SPELLPRO 54 

The ftQ'd prcuSif and spelling checker liom Proline Sq'iwjif 



Package *E 



1541 EXPRESS snd the FAST CABLE 

tvfrr/:ninc rcu need td tpecd up youi dis. dn.e 



Pactan? al 



CONSULTANT and PAPERCLIP W/SPELLPACK 

Trese ai. in. populai Daiab.s. and Wdid rrocessD' liom Banenes Included 

1 129.39 



Falkaye =S 

MIRAGE DATABASE/ADVANCED REPORT GENERATOR and 
MIRAGE PROFESSIONAL WORD PROCESSOR 

A powerful package thai imegratts logether 

■ 124.95 



Package nlO 

BI-8D and PAPERCLIP W/SPELLPACK 

The SO-cs-iuTtj". card *iTr; the Basic 4 built in and irw Paprrcicu a. spelipa:t bolt: from 

Batlenes Included f aperdip mrocks wiin the SOcolumn card lo give you a powertut ttord 

pW CtltM 

IJOtIS 



TUSSEY COMPUTER PRODUCTS 

" (formerly Tussey Mountain Software) 

BOX 1006 
STATE COLLEGE, PA 16804 



Header Service No. 278 



COMMODORE 64 

* with $19.95 Software Purchase 

$ 139 

• 170K Disk Drive $149.00 * 

• Tractor Friction Printer $169.00 

• 13" Hi-Res Color Monitor $189.00* 

* See Page 13 



COMPUTER AND SOFTWARE 

SALE 



* COMMODORE 64 COMPUTER S139.00 

You pay only S13S.00 (wilh Ihe SI9.95 software 
purchose see betow) when you order Ihe powerful 
84K COMMODORE 64 COMPUTER! LESS ihe value a) 
Ihe SPECIAL SOFTWARE DISCOUNT COUPON we pack 
with your computer thai allows you to SAVE OVER 
S500 olt software sole prices! 1 With only S100 of 
savings applied, your net computer cost is 539.00! ! 

* 170K DISK DRIVE S149.00 
You poy only $149.00 (with Ihe S19.95 software 
purchase see below) when you order the I70K Disk 
Drive' LESS the value of the SPECIAL SOFTWARE 
DISCOUNT COUPON we pack with your disk drive thot 
allows you to SAVE OVER 5500 olf software sole 
prices!! With only $100 of savings applied your net 
disk drive cost is S49.00. 

* 13" HI-RES COLOR MONITOR $189.00 

You pay only 5189.00 (with the 519.95 software 
purchase see below} when you order this 13 COLOR 
MONITOR with sharper ond clearer resolution than 
ony other color monitors we have Tested! LE5S value 
of the SPECIAL SOFTWARE DISCOUNT COUPON we 
pock with your monitor (hot ollows you to save over 
S500 off software sole prices!! With only 5100 ol 
savings applied, your net color monitor cost is only 
589.00,(16 Colors], 

SO COLUMN SO CPS 
TRACTION/FRICTION PRINTER $169.00 

You poy only $169,00 when you order the Comstar T F 
deluxe line printer that prints B 1 jxll full size single 
sheet, roll or fon fold paper, iobels etc, Impoct dot 
matrix, bidirectional- LESS the value of the SPECIAL 
50FTWARE DISCOUNT COUPON we pack with your 
printer thot allows you to SAVE OVER 5500 oil 
software sale prices'! With only 5100 of savings 
applied your net printer cost is only 569.00. 

SO COLUMN BOARD $79.00 

Now you program 80 COLUMNS on the screen ot one 
time! Converts your Commodore 64 to BO COLUMNS 
when you plug in the 80 COLUMN EXPANSION 
BOARD!! PLUS 4 slot expander! Con use with most 
software. 

SO COLUMNS IN COLOR 
EXECUTIVE WORD PROCESSOR $39.00 

This EXECUTIVE WORD PROCESSOR is the linest 
available tor the COMMODORE 64 computer! The 
ULTIMATE FOR PROFESSIONAL Ward Processing. 
DISPLAYS 40 or 80 COLUMNS IN COLOR or black ond 
white! Simple to operote. powerful lext editing with 
250 WORD DICTIONARY complete cursor and 
insert delete key controls line ond paragraph 
insertion automatic deletion, centering, margin 
settings and output to all printers' Includes a 
powerful mail merge. 
List 599.00 SALE SH.00 Coupon 529.95 



CALL 
BEFORE 

YOU 
ORDER 



PRICES 
MAY 
BE 
LOWER 



SUPER AUTO com 
DIAL MODEM 64 

(Best communications package in USA) 

$e aoo 



SPECIAL SOFTWARE COUPON 



Wo pack a SPECIAL SOFTWARE DISCOUNT 
COUPON wllh every COMMODORE 64 
COMPUTER. DISK DRIVE, PRINTER, or 
MONITOR we tell! Thl« coupon allows you 
to SAVE OVER 5500 OFF SALE PRICES!! 



(Examples) 






PROFESSIONAL SOFTWARE 


COMMODORE 64 




Noma 


Lilt 


Sale 


Coupon 


1 Executive Word Processor 


599 00 


539 00 


S29 95 


1 Executive Dalo Base 


56s> 00 


S?9 00 


519.95 


20 000 Word Dictionary 


524,95 


SI J 95 


510.00 


1 Practicalc II 


S69.95 


549,95 


SJ4.95 


Print Shop (Disk) 


S4J 95 


532.95 


526.95 


Prochcak 


559 95 


524.95 


S19 95 


Programmers Reference 

Guide 
Programmers Helper 

(Disk) 
80 Column Screen (Disk} 


5?0 95 


516 95 


S12 SO 


S59 95 


529 95 


51995 


559 95 


S29 95 


519,95 


Disk Flier [by Flip N-File] 


S39 95 


SI J 95 


SI2.95 


Deluxe Tope Cassene 


589 00 


544 95 


S3J.95 


Pro Joy Slick 


SI9 95 


$12 95 


$1000 


light Pen 


539 95 


514 95 


5 9 95 


Dust Cover 


S 8 95 


5 fc 95 


5 J. 60 


Simon s Basic 


529 95 


S22 95 


$1995 


Pilslap II Epyx 


539 95 


52i 95 


519.95 


Super Graphics Expander 


SJ9 95 


522 95 


519.95 


Music Cole 1 


559 95 


S29 95 


$24 95 


F ilewriler 


559 95 


S29 95 


S24 95 


(See over 100 coupon 


items in our catalog) 


Write or call for 




Sample SPECIAL SOFTWARE COUPON! 1 



EXECUTIVE QUALITY 
PROFESSIONAL BUSINESS SOFTWARE 

The Cadillac of Business Programs 
for Commodore 64 Computers 



Item 

Inventory Monaoemenl 
Accounts Receivable 
Accounts Payable 
Payroll 
General Ledger 



Hit 
579,95 
$79 95 
579 95 
$79.95 
$79 95 



- Sal* 

529.95 
529.95 
529.95 
529,95 
529 95 



Coupon 
52J 95 
$24 95 
$24 95 
524,95 
524 95 



xThe $19.95 Software Purchase Options 



I 24 Program Bongs Pack (rope or disk) 

? Oil Barrons STralogy Board Game 

3 Disk Drue Cfeaner 

J HES Gomes (disk) 

5. Pogo Joe (Tope or disk) 



LIST 
529 95 
549 05 
S29 95 
$29 95 
529 95 



SALE 
S19.9S 
SH.tS 
S19.95 
S19.95 
11°. SJ 




• Computer Learning Pad 537.95 

• New Voice Synthesizer 549.00 

• 12" Green or Amber Monitor $79.95 

• 12" Daisy Wheel Printer 5199.00 



SUPER AUTO DIAL MODEM 559.00 

Easy to use. Just plug into your Commodore 64 
computer and you re ready ta transmit and receive 
messages- Easier ta use than dialing your telephone 
lust push one key on your computer! Includes 
exclusive easy to use program for up and down 
loading to printer and disk drives. 
List 3129.00 SALE 559.00 

NEW COMPUTER LEARNING PAD 537.95 

Mokes other graphics loblels obsolete. This new TECH 
SKETCH LEARNING PAD ollows you to draw on your 
T V. or Monitor ond then you can print whatever you 
draw on Ihe screen on your printers, FANTASTIC 1 " 
List 579,95 SALE SJ7.9J. 

NEW VOICE STNTHESIZER $49.00 

For Com-64 or VIC-20 computers. Just plug it in and 
you con program words and sentences odjust volume 
and pitch make talking adventure gomes sound 
action games ond customized talkies 1 ' FOR ONLY 
519. 95 you can odd TEXT TO SPEECH, just lype a ward 
and heor your computer folk — ADD SOUND TO 
Zork' . SCOTT ADAMS AND AARDVARK ADVENTURE 
GAMES'! [Disk or tape.) 

12" GREEN OR AMBER MONITOR 579.95 

Your choice of green or amber screen monitor, top 
quality. 60 columns x 24 lines easy to read, anti 
glare! PLUS 5*95 for connecting cable. Com-64 or 
VIC-20 

12" DAISY WHEEL PRINTER S199.00 

"JUKI" Superb letter quality doisy wheel printer, 12" 
extra large carriage, up to 12 CPS bi-directional 
printing, drop in cassette ribbon. Centronics parallel 
or RS232 serial port built in I (Specify] 
List 5299.00 SALE 5199.00 

CARDCOG + INTERFACE 559.00 

For Commodore 64 and Vic 20 computers. Lets you use 
other printers with Centronics interfaces. This 
interface lets Ihe printer act like o Commodore printer 
including printing the Commodore grophics [Dot 
matrix with graphic capability printersl. 
List 5109.00 SALE 559.00 

PROTECT© WARRANTY 

All Pratecto's products carry a minimum 90 day 
warranty. Therefore, if anything fails within 90 
days from the date of purchase, you simply 
send your product ta us via United Parcel 
Service prepaid. We will IMMEDIATELY send 
you a replacement at no charge via United 
Parcel Service prepaid. This warranty proves 
once again thot We love Our Customers 



• LOWEST PRICES • 15 DA Y FREE TRIAL 

• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL 



PHONE ORDERS 

8 a.m. - 8 p.rrt. Weekdays 

9 a.m. - 12 noon Saturdays 



• 90 DAY FREE REPLACEMENT WARRANTY 
• OVER 500 PROGRAMS • FREE CATALOGS 



Add 510.00 for shipping, handling and insurance. Illinois residents 
please odd 6% lox. Acid S20.00 for CANADA. PUERTO RICO. HAWAII, 
ALASKA, APO-FPO orders. Canadian orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUN1RIES EXCEPT CANADA. 
Enclose Cashiers Check. Money Order or Personal Check Allow 14 
days for delivery, 2 to 7 days for phone orders. 1 day express mail! 
VISA — MASTER CARD — C.O.D. No C.O.D. to Conado. APO-FPO 



We Love Our Customers 

Box 550, Barrington, Illinois 60010 

312/382-5244 to order 



Reader Service No. 241 



FANTASTIC COMPUTER PRINTER SALE!!! 


h^R ^^^. 

|B SEP 


f^> 




10X COM-STAR 

Tractor Friction Printer 
130-150 CPS 

Only 




1- B 


l5 




■atij 


Corn-Star l 




1 

List $499 


li<W8BHHaHi«HniiiiitiiiiiiiiiiinmnMiMiNMiMHniMM««llw 


J COM-STAR 


• Lowest Sale Price, Premium Quality, Tractor/ Friction Printer in the U.S.A. (Best Value) 

• Highspeed 130-150 Characters Per Second • 40. 46, 66, 80, 96. 132 line spacing 

* Word Processing, Letters • Business Forms • Labels, Graphics, Tables • List Programs 


• Fantastic Graphics • Print Modem Data • The Most Important Accessory For Your Computer 



Premium Quality 

130-150 CPS 10X COMSTAR 

Printer $199 

10" carriage, prints 8V4"xii" standard 
single sheet or continuous feed paper, 
Bi-directional, impact, dot matrix, 130- 
150 CPS. 9 x 9 dot matrix with double 
strike capability for 18 x 18 dot matrix 
(near letter quality), high resolution big 
image, underlining, back spacing, true 
lower descenders with super and 
subscripts, prints standard, italic, block 
graphics, and special characters. It 
gives you print quality and features 
found on printers costing twice as 
much!! (Centronics Parallel Interface) 
(Better than Epson FX80). List $499.00. 
Sale $199.00. 

Premium Quality 150-170 CPS 

15i/ 2 X COM-STAR Business 

Printer $319.00 

Has all the features of the 10X COM- 
STAR PRINTER plus 15%" carriage and 
more powerful electronics components to 
handle large ledger business forms! 
(Better than Epson FX 100). List $599. 
Sale $319.00. 



■JUKI 

12" DAISY WHEEL 
PRINTER $199.00 

"JUKI" Superb letter quality daisy 
wheel printer, 12" extra large carriage, 
up to 12CPS bi-directional printing, 
drop-in cassette ribbon, (90 day 
warranty) Centronics parallel or RS232 
serial port built in! {Specify). 
List $299.00. Sale $199.00. 



JUKI' 

Printer/Typewriter 
Combination $279.00 

"JUKI" Superb letter quality, daisy 
wheel printer/typewriter combination. 
Two machines in one — just a flick of the 
switch* 12" extra large carriage, 
typewriter keyboard, automatic margin 
control and relocate key drop In cassette 
ribbon! {90 day warranty) Centronics 
parallel or RS232 serial port built in 
(Specify ) . List $399.00. Sale 8279.00. 



OOlympia 



Executive Letter Quality $339.00 
15" Daisy Wheel Printer 

This is the world's finest daisy wheel 
printer. Fantastic letter quality, up to 20 
CPS bi-directional, will handle 14.4" 
forms width! Has a 256 character print 
buffer, special print enhancements, built 
in tractor-feed (Centronics Parallel and 
RS232C Interface) {90 day warranty). 
List $649.00. Sale S339.00 



OOlympia 



Printer/Typewriter Combination $439.00 

Better than IBM Selectric. Superb 
computer printer combined with the 
world's finest electronic typewriter. Two 
machines in one, just flick the switch for 
up to 20 CPS printing (300 Words per 
minute) on a 15" carriage that handles 
up to 14 1/8" in. paper. Drop in cassette 
ribbon — express lift off correction, 
Centronics parallel interface (90 day 
warranty). List $749.00. Sale $439.00. 



75 Day Free Trial — I Year immediate Replacement Warranty 



PARALLEL INTERFACES 



Atari — $59.00. For VIC-20 and COAA-64 — $59.00. Apple — $79.00. 



Add S14.50 (or shipping, handling and insurance. Illinois resident 
please add 6% lax. Add S29.00 (or CANADA. PUERTO RICO. HAWAII 
ALASKA. APO-FPO orders. Canadian orders must be tn US. dollars 
WE DO NOT EXPORT TO OTHER COUNTRIES. EXCEPT CANADA. 
Enclose Cashiers Check. Money Order or Personol Check. Allow 14 
days delivery. 2 ro 7 days far phone orders. 1 day express moil ' 
VISA MASTERCARD COD. No COD. lo Canada or APO-FPO 



We Love Our Customers 

Box 550, Barrington, Illinois 60010 

312/382-5244 to order 



COM-STAR PLUS+ ABCDEFGH I JKLMNQPQRITUVWXYZ 



Print Example: 



ftlCDEFSHIJKLJINOPQRflTUVWXYI 1 
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FANTASTIC PRINTER 
$ 24 95 SALE!! $ 24 95 

Commodore 64 — VIC 20 — A tari 

40 And 80 Column Printers Up To 100 Characters Per Second : Full Graphics Capability 
■.:,- Upper And Lower Case •:.- Advanced Thermal Technology For Quiet Operation 




3150 Alphacom 81-100 CPS 80 Column Printer 

Now you can have a printer for the cost of a 
large box of paper. This printer prints in upper 
and lower case with true lower descenders. 
Comes with 1 roll of paper and power adapter. 
With the intelligent interfaces (sold below) you 
can do Ascii graphics as well as Atari or 
Commodore graphics. Plus you can do 
underlining and expanded modes. Print out 
pictures, program listings, word processing 
pages, etc. Perfect for the student or 
homeowner. List S199.00. Sale $39.95. 

80 Column Extra Paper LIST SALE 

3153 40 Meter Rolls Blue S14.95 $3.95 

3154 40 Meter Rolls Black S19.95 $4.95 

3155 25 Meter Rolls Blue (2 per pkg.) S19.95 $7.95 

3156 25 Meter Rolls Black (2 per pkg.) S19.95 $8.95 



3100 Alphacom 42-80 CPS 40 Column Printer 

Print out listings with full computer character 
sets (interface required, see below). Print in 
upper and lower case. Comes with a roll of 
paper and all power adapters needed. Perfect 
for a spare printer or program lister. List S99.00. 
Sale $24.95. 

40 Column Extra Paper LIST SALE 

3103 25 Meter Rolls Blue 59.95 53.00 

3104 40 Meter Rolls Blue $16.95 $3.95 

3105 25 Meter Rolls Black (1 per pkg.) S12.95 S3. 95 

3106 25 Meter Rolls Blue (2 per pkg.) S19.95 S5.95 

3107 25 Meter Rolls Block (2 per pkg.) 519.95 $5.95 




3101 Intelligent Commodore Interface — Allows you to 
hook the 40 or 80 column printer to the Commodore 64, do 
program listings, allows software screen dumps, etc. 
Includes Commodore graphics and reverse charocters. 
(Specify 40 or 80 Column) List S59.95. 
40 Column Sale $9.95. 80 Column Sale $14.95. 



Add 510.00 tor shipping handling and insurance Illinois residents 
please odd 6% lo» Add S70 00 tor CANADA PUERTO RICO HAWAII 
ALASKA APO FPO orders Canadian orders musl be in US dollars 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA 
Enclose Cashiers Check Money Ordei or Personal Check Allow Id 
days tor delivery 2 to 7 days for phone orders 1 day express moil I 
VISA MASTER CARD - C O D NoC O D to Canada, APO FPO 



3102 Intelligent Atari Interface — Allows you to hook 
the 40 or 80 column printer to the Atari computer, do 
program listings, allows software screen dumps, etc. 
Includes Atari graphics and reverse characters. (Specify 40 
or 80 Column) List S59.95. 
40 Column Sale $9.95. 80 Column Sale $14.95. 



We JLove Our Customers 

Box 550, Barrington, Illinois 60010 

312/382-5244 to order 
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Commodore 64 

MODEM 




List $129.95 




L o wesf^Pr/cjg t ry the Lk$ LA 



$59 

List $129.95 



// 



FOR CHILDREN-ADULTS- BUSINESS 



Complete Auto Dial 
Telecommunications Package 

The only telecommunications package you will ever need. 

(Exclusive Easy To Use Features) 

^*-*- Total -*-*~- 
Telecommunications 

• 300 Baud Modem • Auto Dial • Auto Answer • Upload & Download 

• Membership in 52 Database Services (UPI News, etc.) 

Reach Out and Access Someone 



// 





• Educational courses 

• Financial Information 

• Banking at Home 



• Popular Games 



• News Updates and Information 

• Electronic Shopping 

• Research and Reference Materials 



The Total Telecommonications Package offers you all this plus 



• Auto Log-on 

• Dialing from Keyboard 

• On-line Clock 

• Capture and Display High Resolution Characters 

• Download Text, Program or Data Files 



• Stores on Disk Downloaded Files 

• Reads Files from Disk and Uploads Text or Program Files 

• Select Any Protocol (access almost any computer or modem) 

• Plus Much, Much More 



List $129.95 



Special Low-Low Price 



59 



oo 



We are so sure this is the only telecommunications package you will need we will give you IS days Free Trial. 



Add $3.00 for shipping, handling and insurance. Illinois residents 
please odd t% la*. Add $6.00 tor CANADA. PUERTO RICO. HAWAII. 
ALASKA, APO-FPO orders. Conadian orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES. EXCEPT CANADA. 
Enclose Cashiers Check, Money Order or Personal Check. Allow 14 
days for delivery. 7 to 7 days for phone orders. 1 day express mail ! 
VISA — MASTER CARD — C.O.D. 

No COD. to Canada. APO-FPO. 



We Love Our Customers 

Box 550, Barrington, Illinois 60010 

312/382-5244 to order 
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• 10 issues of TPUG magazine 

• Advice from experts like Jim Butterfield and Elizabeth Deal 

• Access to a huge library of outstanding public domain software 

• An invitation to attend the Annual TPUG conference, May 25 and 26 
in Toronto, Canada, with two full days of seminars on all aspects of 
Commodore computing. 



JOIN NOW! 



I would like to join TPUG as an associate member at a cost of US$25.00. 
Send your cheque, money order or credit card number to: 

TPUG Inc., 

1912A Avenue Road, 

Toronto, Ontario, Canada 

M5M 4A1 



Name_ 



Address . 



J Cheque 
Credit Card # 



"3 Money Order 



□ Credit Card 
Expiry date 



Amount in U.S. funds $ . 
Signature 



Type of Computer 



Disk Drive 



Printer 



Modem 



Other 
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JUKI 6300 

Juki Office Machine Corporation 

$995 

There is basically one word to de- 
scribe the Juki 6300: professional. It 
has every feature that a daisy wheel 
printer should, and they all work 
flawlessly. 

The 6300 prints at speeds up to 40 
characters per second bidirectional- 
ly. It will vary the pitch from 10 to 
12 to 15 characters per inch, or pro- 
portionally space text. Daisy wheels 
are readily available, for it uses the 
standard Diablo format. I found the 
print quality to be excellent. All char- 
acters were fully formed, and the 
alignment was perfect. 

Printing effects are numerous. The 
6300 will boldface, underscore, sha- 
dow print, subscript, and superscript. 
One unique feature is called high 
quality mode. Normally, the printer 
advances the ribbon a fraction of a 
space between characters. In high 
quality mode, the increment is one 
full space for each character printed. 
In addition to proportionally spacing 
text, the printer will auto-justify— 
add 1/120" spaces to the proportion- 
ally spaced text until the margins are 
reached. 

Physically, the Juki 6300 is large. 
Measuring 22.4 x 15.8 x 4.7" and 
weighing almost 31 pounds, this 
printer is going to need some elbow 
room. The carriage is wide enough 
to accommodate paper up to 16" in 
width, making it ideal for most bus- 
iness forms. The paper feed is by 
friction only. A tractor would be use- 
ful, but I did not note any substan- 
tial paper slippage. 

The 215-page manual includes vir- 
tually everything you need to know 
about the printer, unless, that is, you 
are a Commodore user. Operating in- 
structions are provided for virtually 
all popular computers but Commo- 
dore's. Hopefully, this omission will 
be corrected soon. 

As staled earlier, this is a profes- 
sional printer, and it has a profession- 



The Juki 6300 
daisy wheel 
printer offers 
auto-justifica- 
tion, numerous 
printing effects, 
and 40 cps 
speed. 
READER 
SERVICE 
NO. 238 



al price: $995. While this is inexpen- 
sive for a printer of its type (intended 
for small office use), it's a little steep 
for the average user. I would not rec- 
ommend purchasing a 6300 to print 
an occasional letter, but if your in- 
terest is serious word processing or 
small business use, then it is an ex- 
cellent choice. 

Juki Office Machine Corporation, 
299 Market Street, Saddle Brook, NJ 
07662 (phone: 201-368-3666). 

— David Barron 
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21st-century sequel to Blue Max. 
READER SERVICE NO. 239 



BLUE MAX 2001 
Synapse Software 
Commodore 64 
Disk; $29.95 

Bob Polin's Blue Max parlayed its 
brand of scrolling action combat into 
a slew of awards last year. Now the 
same author leaps from biplanes to 
futuristic hovercraft in this exciting 
sequel. 

Blue Max 2001 puts the computer- 
ist into the flight suit of Max Chats- 



worth IX, a remote descendant of the 
heroic aviator of Blue Max fame. The 
implacable FURXX Empire has ex- 
tended its tentacles to Earthbase 
Gamma IV. The game scenario be- 
gins just after the FURXX have con- 
quered the planet and drained the lite- 
force of the survivors to lengthen the 
lifespans of imperial bigwigs. 

If the FURXX aren't stopped, their 
attack will spread to other colonies 
and eventually engulf Earth itself. 
The player must use the joystick to 
guide a single hovercraft in a desper- 
ate attack against the alien invaders. 

The flying ship is equipped with 
two super weapons capable of 
breaching the FURXX defense sys- 
tem. The gravonic penetrator, fired 
by pressing the action button while 
pointing the stick in the desired car- 
dinal direction, can strafe ground in- 
stallations or knock aircraft out of the 
sky. The hovercraft also carries 40 
gravonic annihilator bombs which it 
can drop on buildings, bridges, and 
vehicles. 

Two special targets merit the high- 
est priority. The diamond-shaped 
Shield Enhancer increases the hover- 
craft's defensive capabilities. The Ter- 
rain Sequencer, a disk with a rotat- 
ing core, allows the lone attacker to 
advance to the next alien hoverfield. 

Once the hovercraft takes off from 
its field, the gamer pushes the stick 
up and to the left to start the terrain 
scrolling diagonally down the screen. 
The scrolling can be stopped by mov- 
ing the stick down and to the right. 

AHOY! 63 



Slik Load 



$ 29.95 

Slik Load is a Kartridge for the C-64. 

Slik Load is the most reliable, effective and thought out Kartridge of it's kind. 

The options include: 

• 5 timet foster load • Statu* key will give you information on 

• Eliminates drive rattle when errors device number, bytei free and status of the 
are encountered. drive. 

• Old and un-new • Silk Load is also fully compatible with the 
Will restore a basic program 1 541 Super Rom 





$19.95 



DMS-Errors 20. 21 , 22. 23, 27 A 29 

Format Single Tracks 

Read Disk Errors 
'■: Track H«id»r n fid and salecl ft track 
'n Track Formaller-Format a disk wjth H 
tracks This is where the next protection 
schemes are coming from. 
Drive MttvQisk Drive assembler/dis- 
assembler For your 1541 
Tha Doc-Disk Doctor that reads code 
under errors 

Sync Maker-Place a sync mark on any 
track out lo 41 Also used lor prolection 



Sync R**d«r-Check for Sync b-tsori any 

track out to 41 

Change Drive No. -Changes drive 

number (7-30) 

Dl*k Logger-Finds starting track sector; 

start and end addresses 

QiuJk Uelcn-Compare any two diskettes 

Byte (Or byte. 

New Wedge-Easier to use DOS wedge 

ID Check-Check IDs on any track. 

UnscratchRosioie a scratched file 

Vww-BAM-Visual display or (he free and 

used sectors on a diskette 



Read/Write Teal-1541 performance test 
Repair a Track-Repair a track with 
checksum e^ors Reads code under 
errors and restores track. 
Fast Formal-Format a disk in ju-.! 10 
seconds {with verity!). 



This is the only utility 
of its kind. It even has 
a 3 min. copy on it. 



WAR GAMES 
AUTODIALER 




1-Auto Diet will automatically dial a set of numbers you chooser 
2-Review Numbers tjrfl, review numbers that were answered by a computer 
3-Save Numbers will save numbers where a computer answered. 
4-Hardcopy ol Numbers wtJl print out Hst of numbers where a computer answered 
5 -LOAD Numbers will load in numbers lo continue where it left oft 
6-Continue will pick up dialing where it was interrupted 



$29.95 



5DFTWRRE. 
•HflNDBDDr- 



3rd 

Edition 



THIRD EDITION! NOW AVAILABLE! 

If you're tired of being harassed by protected software and too many copy 
programs, then this is ihe book for you! This 224 page manual covers the 
gambil from legalities lo protection methods to step-by-step back up pro- 
cedures, Now you can learn both how to protect and unprotect software! 
The techniques covered include copying cartridges to tape or disk, tape pro 
taction, and disk protection- Disk protection covers error no's 20. 21 , 22, 23. 
27 and 29 plus single track formatting, header modification, header swapp' 
ing, half track reading and writing, reading and writing modified bit densities, 
formatting illegal tracks/sectors, sync writing and morel The Third edition ex- 
plalna, tells how to detect and how to write them with included software. 
Eleven useful utilities and many protection listings! Our disk analysis programs 
reveal the protection methods used on your originals. A diskette with all soft- 
ware is available for a minimum extra charge. This may not be the only book 
your should have for the C-64, but it is certainly the one book you should 
not be without! 



CB4 Book only $19.95 US 

Book & Disk of all programs S29.95 US 

Vic 20 book . , . Cart, i, Tapes only S9.95 US 

THIS MANUAL DOES NOT CONDONE PIRACY 
■SHIPPING: $2.00 



KARTRIDGE KRACKER 

NOW you can own this unique and powerful tool 
which will allow you to dump the contents ol 8K 
and 16K cartridges onto disk! But what's really 
great is that you can also RUN the cartridges pro- 
grams without plugging in the cartridge! the 
KRACKER gets YOU INSIDE the cartridge! Put 
all your favorites on disk and get rid of the clut- 
ter. This package provides your with the software 
and hardware needed to get started. Program on 
disk included. (Some cartridges require use of ex- 
ternal RAM not included) 




$44.95 



TOP SECRET STUFF II 

All C128 Compatible 



Split Screens (Horizontally) 
Smooth Scrolling 
Save Ram From Under Roms 
No Drive Rattle On Errors 
Triple Drive Head Speed 
Autoboot Maker 
Koala Screen DUmp 
Display GCR 
Fast' Disk Eraser 



Protect Scheme For Your Disks 

Write Protect Disk 

Unwrite Protect Disk 

Mini D.O.S. Wedge 

Fast Diskmatcher 

Data Statement Maker 

Unnew 

3 Minute Copy 

D.M.S. 



If you have TSS#1, You'll 
Like This One! All on one disk 



$19 



95 



Bulletin Board 

Sef up and operate your own bulletin board with one 
or two disk driirei This one has all the features and 
you can customize it easily yourself 



1-RUN MEGASOFT-BBS 
2. CREATE MEGA FILES 
3-ADD TO SYSOPS CORNER 
4.NEW SYSOPS CORNER 
S-HEAD MESSAGES 
6-SCHATCH MESSAGE 
7-CYCLE MESSAGES 



BREAD SYS0P MESSAGES 
9-WBITE OPENING MESSAGE 
I0READ LOG 
11 -CYCLE LOG 
12-READ DOWNLOAD FILE 
13-SCRATCH DOWNLOAD FILE 
14. ADD TO OTHER SYSTEMS 
15-CHEATE OTHER SYSTEMS 



s 59.95 BB g 

• Leveled Access • Expert Mode 

* Private Message Base • Open Chalk Board for 
■ Up to 300 Passwords Highest Level Access 




Enclose Cashiers Cftecfc Money Order, or. Personal 
Check Allow 14 days 'or deUvety. 2 10 7 days for 
phone croers Canada orders mull t>* m U S 
Dollars. V»SA - MASTER CARD -COD 



Programs lor C-&4 



$2 00 S b h on an orders 



Sottwart Submissions Invited- 



x MegaSoft united 

KM-2 P O Box 1080, Battle Ground, Washington 98604 

Phone (206) 687-51 16 • BBS 687-5205 -Atie- hcws ComDuier 10 Co-iouie> 
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D-Compiler $ 59.95 



The first D-Compiler to give you back your source code 
after your program has been compiled with 'Blitz. 

'Biii; is a trademark of Skyies Electric Work* 



1541 Super ROM 



$39.95 



• Fast Save Load Verify 

• Fast Scratch and Validate 

• 10 Second Format with Verify 

• No more Drive Head rattling 
during Format or Error Reading 



also Save with Replace is 
Improved 

• Two times faster, Eight times faster 
when used with Turbo 64 which is included 



1541 Super ROM is 100% Compatible • Easily installed in Minutes 




A PALL© COPIES IT ALL 



APALLO Does it All. This program is the latest generation of 
copy programs. It will do everything the $39.00 and $49.00 pro- 
grams will do and more. It Copies ALL drive errors, bad tracks 
and sectors, non-standard format, bad syncs, and half tracks. 
We feel this is the best program of its kind available... 




$29.95 



MSD Sure Copy 

At last a complete utility package lor the MSD Dual Drive. This 
is the first MSD utility program that does it all. The main 



menu options include: 



Copy Protected Disk 
Copy Files 
Format a Disk 
Change Disk Name 
Quit 



Copy Unprotected Disk 
Scratch a File 
Rename a File 
View Directory 



$39 



95 



Sure Copy will put all errors automatically on disk: 20. 21, 22, 23, 27 and 29's. 



D-CODER 



Translates any machine language program into easy- 
to-read English descriptions with complete explana- 
tions of each command! 

Makes complete notations of all important memory 
locations accessed by the program! (SID, VIC, MOS, 
KERNAL, etc,} 
Gives you three ways ot accessing programs: 

1) Will raid and Hit -programs from DISK 

2) Will read and list programs from MEMORY! 

3) Direct user Input (from magazines, etc.) 

Can be used to locate and examine any machine 

language program's protection routines! 

Can be used to easily break apart machine language 

programs for study and examination! 

Printer option for complete hard copy listings! 

Vou no longer / 
need to be en j ~ ». 
EGGHEAD to 
read Machine 
Language. 



$1995 




N-CODER $19.95 



the machine 
language manipulator... 

The perfect companion 
program to D-CODER! 






Allows you to easily make changes in ma- 
chine language programs... right on the disk! 

• Rewrite ability allows code to be altered 
and then rewritten directly to the disk! 

• Features sector-by-sector scrolling 
assembly language display of machine 
language programs! 

• Notation ot ASCII text equibalents tor easy 
spotting of embedded text strings! 

• Handy reference display of ail assembly 
language commands and their ML 
numerical equivalents! 

• Byte splitter for easy splitting of decimal 
addresses into low byte-high byte format! 



Super Loader 

Super Loader is a Kartridge that plugs into 
your expansion port, that allows the 
computor, on power up start the disk drive 
and load the first preselected program on 
the disk. 



• Change colors 

• Load wedge 

• Works with more drive 

• Takes up no memory 

• Reset switch included 




Only 



$29 



95 




This Disk has over 100 routines, 
some of them are routines for 
protection, smooth scrooling, modem 
routines, and sound and color 



routines. They can easily be 
incorporated into all of your programs. 
It is also fully documented 



$ 19.95 
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Cnni pam 
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APCAD 


258 


11 


Abacus 


263 


C-4 


Access Software 


262 


68 


Alphacom, Inc. 


265 


23 


Apropos Technology 


268 


■19 


Batteries Included 


* 


51 


Batteries Included 


+ 


5 


Big Bytes 


259 


15 


Huddv Products 


296 


30 


CHF Compaq; 


275 


80 


CVC Online 


249 


C-2 


Cardco, Inc. 


247 


27 


Carter Publishing, Inc. 


290 


14 


CompuServe 


248 


35 


CnmpuSoft Publishing 


283 


41 


Computer Centers of America 


264 


6 


Computer Warehouse 


245 


67 


The Ennon Corporation 


279 


24 


Kntrepo 


271 


C-3 


Epyx 


261 


43 


Floppy House 


246 


75 


Full Circle Software, Inc. . 


240 


Id 


Howard VV, Sams & Co., Inc. 


297 


55 


Innovative Organizers 


276 


9 


Integrated-Software Systems 


260 


22 


Jason-Ranhcim 


256 


63 


Juki Industries of America, Inc 


238 


34 


Juki Industries of America, Inc 


272 


9 


Juki Industries of America, Inc 


292 


12 


Kidhit Software 


295 


64-65 


MegaSoft 1 -united 


273 


25 
56 


Microcontscribe 
Microlog Corp. 


257 
251 


10 


MicroPrnse Software 


294 


21 


Microvation 


255 


26 


Micro-W, Distributing. Inc. 


281 


7 


Mlcro-W. Distributing, Inc. 


291 


A 


Ohio Computer Services 


282 


32 


Parsec Research 


250 


20 


Phoenix Red Software 


270 


16 


Professor Jones 


288 


58-61 


Protedo Enterprises 


241-244 


79 


Riidix Marketing 


280 


46 


Sage Software 


277 


9 


Sakata U.S.A. Corporation 


293 


15 


Software Design, Inc. 


285 


12 


Software Link 


287 


17 


Starshine 


289 


8 


subLOGIC Corporation 


269 


63 


Synapse Software 


239 


71 


T & D Subscription Software 


253 


62 


TPL'G Magazine 


298 


69 


Teknika Elect ronics Corp. 


266 


13 


Timeworks 


267 


57 


Tussey Computer Products 


278 [ 


70 


Ultra Byte 


252 


71 


VMC Software 


254 


35 


Wedgwood Rental 


284 


45 


Xetec, Inc. 




286 



The 



publisher cannot assume responsibility 
for errors in the above listing. 



Rebels have established secret 
strongholds on the surface of Gamma 
IV. When the ship lands at a field, 
it can take on fuel, resupply its bombs 
racks, and repair damage caused by 
alien aircraft and flak guns. 

The joystick steers the ship in any 
desired direction and changes alti- 
tude. Though the hovercraft can drop 
bombs from any height, it must get 
fairly close to the ground before its 
gravonic penetrator can wreak havoc. 

The control panel located directly 
below the main display monitors the 
hovercraft status. This includes alti- 
tude, fuel supply, accumulated dam- 
age to specific ship systems, number 
of bombs remaining, and current 
score. Changes in the color of the 
playfield border provide an addition- 
al visual indicator of the current al- 
titude range. For example, a gray bor- 
der informs the pilot that the hover- 
craft is at the proper height to strafe 
the ground. 

Better documentation would have 
improved this otherwise excellent 
program. In particular, labeled illus- 
trations of each of the major play-fea- 
tures would have greatly speeded up 
the learning process. 

Blue Mux 2001 doesn't introduce 
any startling design concepts, but it 
fulfills the essential requirements of 
a good sequel. It extends and refines 
the elements which made the original 
game popular, while it introduces 
enough new challenges to generate 
fresh excitement. 

Synapse Software, 5221 Central 
Avenue, Richmond, CA 94804 
(phone: 415-527-7751). -Amie Katz 

PLUSWRITER PRINTER 

Alphacom, Inc. 
$399.00 

Priced at $399, the Alphacom 
Pluswriter is yet another addition to 
the vast array of low-cost letter qual- 
ity printers available today. 

Housed in a sleek black and grey 
plastic case, the Pluswriter interfac- 
es easily to the Commodore. Alpha- 
com uses an interesting method of in- 
terfacing: an intelligent interface car- 
tridge plugs into a slot on the back 
of the printer. The cartridge is dif- 
ferent for every computer, and pro- 
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vides the hardware/software link to 
make it function properly for your sit- 
uation. I experienced no problems 
listing programs or using word pro- 
cessors. In fact, the Pluswriter emu- 
lates the Diablo 630 printer, which 
makes it compatible with just about 
everything. 

When printing, the Pluswriter 
cruises at a moderate 18cps bidrec- 
tionally: painful for printing out your 
science fiction trilogy, but for most 
applications well within reason. The 
print quality is good, except for those 
occasions when characters will move 
slightly up. down, left, or right, and 
appear a bit disoriented. I didn't like 
the Courier 10 printwheel included 
with the printer so I purchased a 
more attractive daisy wheel. I was 
pleased to learn that either Qume or 
Diablo daisy wheels will work, and 
can be found most anywhere (I found 
mine at a local stationery store for 
$7.50). Ribbons arc also easy to find. 
for the Pluswriter uses Diablo Hy- 
Type II. I also found these locally for 
$4.95. 

Since the Alphacom emulates the 
Diablo 630 many special effects are 
possible including boldface, shadow 
printing, subscripts, and superscripts. 
These all work well and are all easily 
accessible. 

The only major problem I had with 
the Pluswriter was the tendency of 
continuous tractor paper to move 
across the platen. This required con- 
stant realignment and was very an- 
noying. With single sheets I had no 
difficulties. 

The Alphacom Pluswriter is a 
competitive addition to the low priced 
daisy wheel printer market that 
should satisfy the needs of most home 
computer users. 

Alphacom, Inc., 2323 South Bas- 
com Avenue. Campbell, CA 95008 
(phone: 408-559-8000). 

—David Barron 

CALC NOW! 

Cardco, Inc. 
Commodore 64 
Disk; $39.95 

Computer industry pundits like to 
attribute the very existence of the per- 
sonal computer to a spreadsheet pro- 



An open letter to 

the readers of Ahoy Magazine 

Vincent Kurek 

President: The Ennon Corporation 



My purpose in writing is lo ask 
you to join me in shaping the 
future of the new and most unusual 
field in computer technology today: 
Artificial Intelligence. 

This incredible power and 
spectacular creative potential are 
available lo you, lor your computer 
right now. However, there is an 
alarming possibility that such 
amazing technology which you 
have every right to, may not be 
available to you other that through 
this offer. 

This is unfortunate but somewhat 
understandable due to the way 
in hni i ogv i- i leaied. You see onK 
the business oriented corporation 
can finance research. It therefore is 
in a position to dictate immediate 
research goals. These goals are 
increasing profits through more 
efficient production. While valid, 
they are merely creative and do 
absolutely nothing to foster 
exploration in new applications. The 
result: technology is never used to 
its fullest potential. But what's worst 
of all is that these competitve 
corporations have absolutely no 
desire to share technology with 
each other, let alone with you. So, 
they don't. As a result, the 
infinitesimal amount of technology 
that finally trickles clown to you is: 

A. So expensive you are pro- 
hibited from procurring it 

B. Shamefully inferior to I lie 
real thing 

remember.. .you can buy high-tech 
consumer goods, but never the 
technology that creates it. 

This same situation confronts you 
in the new Artificial Intelligence 
field, but with a difference: 
There is no true Artificial 
Intelligence for the home computer 
user! The few programs claiming to 
be Artificial Intelligence are really 
simulators. They are not the real 
thing. Possessing a mere token of 
the power and versatility, simulators 
are clearly not worth their 
expensive price. 

I have trierl repeatedly to 
convince my colleagues that it is in 
their best interest to release genuine 
Artificial Intelligence to the general 
public. The refinement, modification 
and adaptation as individuals create 
new applications would improve 
Artificial Intelligence tremendously. 
This would benefit everyone in the 
long run. 



I have met with little sue i ess. 
Apparently, it seems that immediate 
corporate profit is more important 
than sharing technology with I he 
public. Therefore, the Ennon 
Corporation stands alone in ottering 
superior Artiiicial Intelligence 
programming directly to the home 
r omputer enthusiast. 

Announcing AN-83: 
The "Thinking" Program 

Believe me when I say AN-63 is 
the real thing. It is a true "thinking" 
program that receives an initial 
"knowledge base" from a data file 
read when AN-83 is started. Using 
inductive and deductive logical 
analysis, this amazing program 
deduces everything from that data 
and adds it to its memory. 
Conversing with you, AN-83 adds 
and combines with facts .ilready 
known. It generates new 
conclusions not explicitly contained 
in its original knowledge base— just 
like your own thinking processl The 
result: it knows considerably more 
than the specific facts given lo it. 

AN-83 can also think about 
anything. It is virtually unlimited in 
its application. Think of your 
possibilities. The potential is 
limitless. In the right hands, AN-83 
would revolutionize the adventure, 
strategy and other smart game- 
playing programs to say nothing of 
(lassie arcade games. On the other 
hand, AN-83 could be one of the 
most powerful business analysts 
available to the home computer. 



FREE SOFTWARE 



In addition, you will be receiving 
free, Eliza— the most amazing 
conversational A.I. program to date. 
Run this for your friends and jaws 
will drop with amazement. Eliza's 
responses are so human, it's 
uncanny. An entertaining program. 
Eliza will answer once and tor all 
the question: What can your 
computer do? 

How to Learn 
Artificial Intelligence 

You can be creative. Experiment 
and modify to fit your personal use 
because AN-83 and Eliza both 
possess source code in basic, the 
most popular easy to use language 
for the micro. Their extensive, easy 
to understand commands walk you 
through the source code 



step by step. It's surprisingly simple. 
Even the beginner can understand 
the "I low and Why of A.I." 
A Fantastic Savings 

The real profit to Ennon 
Corporation will be your 
participation in the future ot 
Artifit lal Intelligent e. Therefore. I 
am [(leased to s,iy nobody will miss 
this chance because they could not 
afford it. AN-83 is priced lo < over 
|usl a fraction of its research and 
developmental ( OStS. 

The "Thinking" Program AN-83 is 
just S21.57. What's more, the 
astounding Eliza is yours absolutely 
free . 

I guess it's obvious that I want 
vim to participate in the future of 
Artificial Intelligence. Forgive my 
excitement and enthusiasm but I 
liisi know you are going It) be very 
ii.ippv and impressed that hii h 
things could be done with your 
computer. You |ust won't believe it. 
Please take this opportunity now. 
Simply fill out your coupon below 
and mail today. Don't miss out. It's 
sui h a wonderful future ol 
discovery and excitement that 
awaits you. 

With very best of wishes, 
Vincent Kurek 



I I Please send me the 

Thinking Program AN-8^1 
for only $21.57. 
In addition, I will receive 
absolutely FREE Eliza— the 
most impressive 
conversational Artificial 
Intelligence program to date. 

A\, 11 l.i lite in disk only. 

For use with the Commodore M. 

Name 



Vidress 
City _ 
Slate _ 



Zip Code 



THE ENNON CORPORATION 

1817 W Call St., Suite B-8 
Tallahassee. FL 32304 

Canadian orders must be in U.S. dollars. 
We exporl to other countries. 
Commodore is a registered trademark. 
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The Alphacom Pluswriter (see review on page 66) cruises at a moderate 18cps. 

The printer emulates the Diablo 630, so many special effects are possible. 

READER SERVICE NO. 265 



gram. That first spreadsheet program 
was Visicalc, which through its sym- 
biotic relationship with the Apple in- 
troduced thousands of burned-out 
Pong players to the really useful as- 
pects of computing. 

Today, more spreadsheet programs 
exist than you can shake a ledger at. 
Regardless, the market is always on 
the lookout for a better, cheaper pro- 
gram. Depending on your exact 
needs, Calc Now! from Cardco may 
be exactly that. 

Cardco began its product tine with 
hardware add-ons like its numeric 
keypad. More recently, it has ex- 
panded into software with programs 
like Write Now!, a wordprocessor 
with a mail merge feature, and Graph 
Now. Cardco's latest release, Calc 
Now!, is compatible with all three. 
For the S39.95 price, you get most 
of the features of spreadsheet pro- 
grams costing much more. 

Calc Now! is a single load program 
—no disk-swapping needed. Once it's 
loaded, Calc Now! runs much like 
other spreadsheets. For details on the 
basic operations of spreadsheet pro- 
grams, pull out your May 1984 issue 
of Ahoy! and reread Terry Silveria's 
comprehensive review and evalua- 
tions of ten competing products. To 
compare Calc Now! to those pro- 
grams, here's the information for 
Terry's chart of spreadsheet features: 



Relative Copy 


Yes 


It Then Command 


Yes 


Row/Column Insert 


Yes (and row/column 
delete) 


Rejustify Cell 
Contents 


Yes (either left or 
right) 


Split Screen 


Yes (either vertical 
or horizontal, syn- 
chronized or 
unsynchronized 


Adjustable 

Column Width 


Yes (from 3 to 36) 


Logic Operators 


Yes (And, Or, Not) 


Fix Titles 


Yes (lock the top 
row(s) or the left 

column(s) or both in 
place) 


Graph 


Yes (print rows of 
asterisks to repre- 
sent values) 


Sort 


Yes (alphabetical or 

numerical on any 
column) 


Search 


No 


Link 


No 


Maximum Column 
Width 


36 


Maximum # 
Columns 


64 


Maximum # Cells 


1600 (with an 8- 
digit number in 
each 


Maximum M Rows 


254 


Price 


S39.95 



Calc Now! uses the top (status) 
lines of the screen to show you the 



cell number, type, justification, con- 
tents, and format. Available formats 
are dollar, floating point, integer, 
graph (*), logical (true/false), and set 
number of decimal places. The sta- 
tus lines also tell you whether recal- 
culation will occur automatically or 
must be triggered and how much 
memory is left for your data. After 
the program is loaded, 39K is avail- 
able. If you build spreadsheets that 
are larger than this, you may need to 
consider one of the other programs 
that can link spreadsheets by allow- 
ing you to reference one spreadsheet 
in another. 

Several functions are available in 
Calc Now! that work on ranges of 
cells. SUM will total the contents of 
a range of cells; AVERAGE will 
average them; MIN will find the 
smallest; MAX the largest; and 
COUNT will return the number of 
non-blank cells. Two other powerful 
and more unusual functions also 
work on ranges. GET will evaluate 
a formula, count down that number 
of cells, and return the value in the 
cell it finds. FIND will evaluate an 
expression, search through a range of 
cells until it finds a value which is 
lower, and return the value in the next 
cell. Linked with the sort feature, 
FIND gives you a very sophisticated 
spreadsheet tool. 

Here are some one-liners on fea- 
tures I especially like. Sorting rows 
based on the contents of any column 
(or part of a column) is fast; only a 
couple of seconds even for a big 
spreadsheet. Existing cell formulas 
can be edited— you don't have to re- 
type a long formula which has an er- 
ror near the end. Whenever you need 
to reference another cell in a formu- 
la, you can, after pressing the Brit- 
ish pound sign key, point (with the 
cursor) to the cell you want and au- 
tomatically enter its number, a nec- 
essary feature for multiscreen spread- 
sheets. You can command Calc Now! 
to move the cursor up, down, left, or 
right when you hit return -handy 
when you change from entering col- 
umns of numbers to entering rows. 

More? Okay. Instead of printing all 
or part of your spreadsheet, you can 
choose to print all of its formulas for 
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The Teknika 
MJ-10 color 
monitor, like the 
1702, accepts 
separate lumi- 
nance and 
chrominance in- 
puts. Its chief 
weakness: an 
undersized speak- 
er that does not 
reproduce sound 
very well. 
READER 
SERVICE 
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verification. (If you've ever made a 
mistake with pencil and paper, wait 
until you see what havoc you can cre- 
ate with a spreadsheet.) Individual 
cells can be protected, a handy fea- 
ture for spreadsheets used infrequent- 
ly or by someone else. Without exit- 
ing from Cede Now! you can initial- 
ize a disk, get a directory, delete or 
rename files, and specify disk and 
printer device numbers. 

That's a lot of features, but is Calc 
Now! hard to use? No, if you're at all 
familiar with spreadsheets, it's a snap. 
Even if you're not, keyboard tem- 
plates describe the uses of function 
and other command keys. Forgetful? 
Hit the help key followed by any 
command key you are unsure of. In 
an onscreen window, a description of 
that key's function will appear. The 
program I reviewed had only an 11- 
page temporary manual, so I cannot 
say what the documentation will look 
like. But Cardco does provide tech- 
nical support by phone. 

My favorite, and final, help feature 
is something we all demand of our- 
selves in programs we write, but 
which is not available from spread- 
sheet programs. A non-printing com- 
ment or documentation can follow the 
contents of any cell; just start it with 
a semicolon. If you have ever tried 
to decipher one of your old spread- 
sheets, much less someone else's, 
you'll know how valuable this can be. 

Cardco, Inc.. 300 S. Topeka, 
Wichita, KS 67202 (phone: 316- 
267-6525). -Richard Herring 



MJ-10 MONITOR 

Teknika Electronics Corporation 
$279.95 

When the carton containing the 
Teknika MJ-10 appeared on my desk 
one morning for review, I thought I 
would be taking a look at just another 
monitor. I was wrong. The MJ-10 
produces a surprisingly good picture, 
easily the equal of the Commodore 
1702's. This is partially due to the fact 
that the MJ-10, like the 1702, accepts 
separate luminance and chrominance 
inputs. This helps achieve a level of 
clarity and color rendition not possi- 
ble with monitors boasting only com- 
posite video inputs. 

On the front of the monitor are an 
exposed power switch, power light, 
and volume control. Hidden behind 
a flip-out panel are controls for hor- 
izontal position, vertical position, 
contrast, brightness, color, and tint. 
Other controls— vertical linearity, 
vertical size, horizontal hold, and in- 
put level — are on the back. 

My only complaint with the MJ-10 
has nothing to do with the video, but 
rather the audio. Its speaker is under- 
sized and does not reproduce sound 
very well. Additionally, a larger am- 
plifier and an earphone jack would 
have been useful. 

All in all. the MJ-10 is an excel- 
lent choice in a monitor if the high- 
est possible picture quality is a must. 

Teknika Electronics Corporation, 
353 Route 46 West, Fairfield, NJ 
07006 (phone: 201-575-0380). 

—David Barron 



MUSICWARE 

SONG BUILDER 
SONG EDITOR 
SONG PRINTER 
SOUND MAKER 
Sequential Circuits 
Commodore 64 
Disk; $39.95 each 

I was immediately impressed with 
the MusicMate keyboard from Se- 
quential Circuits. Its 32 keys have 
nice action, and the lightweight and 
sturdy construction make it ideal for 
creating music on the C-64. 1 was less 
than overwhelmed, though, by the 
supplied driver software, the #970 
MusicMate Musicware. It's your basic 
meat-and-potatoes program, devoid 
of any gravy. While it does what it 
was designed to do -demonstrate the 
capabilities of the keyboard by allow- 
ing you to try several different 
sounds, store your creations in RAM, 
and play them back— no provisions 
are included for saving your songs to 
disk, recording individual voices, 
creating new sounds, editing, or 
printing out your compositions. 
Clearly, the MusicMate keyboard 
would be much more valuable to 
computer musicians if it had software 
that was commensurate with its own 
capabilities. 

To fill this need, Sequential has re- 
leased the MusicWare line. They've 
taken the modular approach, where- 
by dedicated software modules have 
specific functions, and you only buy 
the particular utilities you need when 
you need them. 

The MusicWhre line consists of four 
additions to the software that comes 
with the keyboard: #971 Song Build- 
er, #972 Song Editor, §973 Song 
Printer, and #974 Sound Maker. The 
module names provide you with a 
good description of the functions. 
Let's take a look at each individually, 
as well as interactively. 

#971 SONG BUILDER 

Song Builder is the music compo- 
sition module. It allows you to enter 
your melodies, one voice at a time, 
and record them on disk. You're giv- 
en a selection of stock sounds that 
simulate a wide variety of musical in- 
struments. A metronome feature 
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a Breakthrough in Value ! 

ULTRABYTE 

DISK DUPLICATORS 
with FREE BACKUP COPIES 



ULTRABYTE NOW OFFERS TWO OF THE BEST COPY 

PROGRAMS ON THE MARKET. AND BOTH COME WITH 

FREE BACKUP COPIES. 



ULTRACOPY II 



Jim Lagerkvist's sequel to the original ULTRACOPY 64 
owned by thousands of satisfied customers. 

Copies protected disks in 8 minutes on a single 1541 

Does not "hammer" the disk drive. Will not affect alignment 

Formats, copies and produces errors automatically in one step 

Features Normal Scan for reliable copies of most disks 

Includes Deep Scan with 38 track and half track capability 

Copies 99% of programs on the market 

Free backup copy • two disks for the price of one 

Technical support available by telephone 

Simple to use. Tone signals disk swaps 



ULTRABYTE DISK NIBBLER 



Uses proprietary revision of disk operating system (DOS) to make 
a bit 6y bit copy. This process, called nibbling, copies the format, 
data and errors, all at the same time. Errors are not recognized 
and do not hammer the drive. Built in fast load environment allows 
copies In 8 minutes with a single 1541 disk drive. 

• Easy to use. No separate analysis or error production 

• Choose 35,36,37 or 38 tracks to copy incl. half tracks 

• Makes up to 5 copies of each original -[UNIQUE FEATURE) 

• Backs up 99% of all software 

• Free backup copy - two disks for the price of one 



FREE BACKUP DISK 



ULTRACOPY II and the NIBBLER are Independent products by different authors. Both 
are excellent and either should meet your needs. You may order two disks of one 
product for $ 39.95 plus 5 4.00 shipping and obtain a single disk of the other lor 
$20.00 plus £3.00 shipping. Sorry. Ires backup must he same as disk purchased. 



FOR 2 COPIES OF EITHER 
ULTRACOPY II OR THE DISK NIBBLER 



plus S4.00 shipping and handling. Mastercard, Visa. Check or M.O,. Foreign orders 
or COD add J 2.00. Calif, add 6.5% |SZ.60| sales tax. Additional backup copies are 
120.00 plus {3.00 shipping 

ATTENTION: Owners of ULTRACOPY or Ihe NIBBLER whose names are In our file 
may order a single copy of either product lor S 20.00 plus 13.00 shipping. 

Write or Call 24 Hour Order Line 

ULTRABYTE (818) 796-0576 
P.O. Box 789 La Canada, CA 91011 



DEALERS & DISTRIBUTORS WANTED 
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helps you keep time while recording 
your tracks. 

The program is menu-driven, and 
only eight keys on the C-64 are used 
for selection or advancing through the 
menu items. The MusicMate key- 
board is used exclusively for note en- 
try. The documentation booklet is 
written in a well-illustrated, easy to 
understand style. Additionally, help 
screens concisely explain how to ac- 
cess the program's functions. 

One of the most impressive aspects 
of Song Builder is its sequencing ca- 
pability, allowing you to create indi- 
vidual sections, or sequences, of mu- 
sic and treat them as individual enti- 
ties. After recording your sequences. 
you can link them in any desired or- 
der, or even change the key and tem- 
po of different sequences. This lets 
you create whole songs of any length 
quickly by treating individual song 
sections as sequences. Let's say that 
your song contains these components: 
verse 1, verse 2, chorus, verse 3, 
chorus, chorus. To create a complete 
song, you need only record one verse 
and one chorus, then assemble them 
in the right order, since the music for 
the verses and choruses is the same 
each time they recur. What would 
Beethoven have thought of such a 
work saver? He would have loved it, 
I'm sure! 

#972 SONG EDITOR 

The Song Editor module provides 
you with the editing capability to do 
minor touchups on your songs or ma- 
jor rewrites on given measures. The 
documentation explains how to access 
its many features, and the program 
contains multiple help screens. As 
with the other MusicWare modules. 
Song Editor is entirely menu driven 
and very easy to use, requiring only 
eight of the C-64's keys for imple- 
menting functions. All note entry is 
handled through the MusicMate key- 
board. 

Possibly the most outstanding fea- 
ture of Song Editor is that it automa- 
tically calculates the effects of your 
editing changes and compensates for 
them. If you alter the pitch or dura- 
tion value of any note in the compo- 
sition. Song Editor automatically 
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takes care of the rests! To change any 
note on the display, strike the correct 
note on the MusicMate keyboard and 
it will appear instantly on the staff. 
You can even change the time signa- 
tures or transpose the key with this 
program. 

Another big plus is the ability to 
step through your music one note at 
a time, or view your score one mea- 
sure at a time. The video display is 
in traditional grand-staff format, with 
signatures, notes, and rests looking 
exactly as they should. 

Song Editor is a tremendously 
powerful music editing program that 
picks up where Builder leaves off and 
carries you further down the musi- 
cal path. 

#973 SONG PRINTER 

If you have need of printed musi- 
cal scores in standard notation, Song 
Primer will allow you to print out 
sheet music of your songs, and even 
give you the options of which voices 
to print. Consistent with the other 
products in the MusicWare line, it is 
menu-driven and easy to use. The 
program is accompanied by excellent 
documentation, and help screens are 
included. 

Song Printer will work with the 
Commodore 1525, 801, or other com- 
patible dot matrix printers suitably in- 
terfaced. Because the music symbols 
and graphics must be created, letter- 
quality or daisy wheel printers won't 
work. 

In addition to printing out excel- 
lent quality music scores. Song Print- 
er allows you to choose the melody 
line(s) to be printed. This is particu- 
larly useful for learning harmony 
parts in vocal arrangements, where- 
by the soprano, alto, and tenor may 
each have a score with their particu- 
lar parts on it. The piano accompan- 
ist, however, may utilize a score 
showing all three parts. This is a great 
print option to have, and Song Print- 
er is, to my knowledge, the only mu- 
sic printing program that allows this 
sort of flexibility. 

#974 SOUND MAKER 

Your C-64's SID chip is capable of 
creating some awesome sounds, and 



the Sound Maker module makes such 
sonic tailoring easy. The program 
disk contains twenty musical instru- 
ment sounds and sound effects which 
you may alter to your heart's content. 
Included are several help screens that 
explain the functions of the control 
settings; additionally, the documen- 
tation expands on this information. 

Sound Maker also provides you 
with a novel video display while crea- 
ting sounds. Unlike music synthesis 
programs which rely on bar or nu- 
meric setting displays, you get a sim- 
ulated analog control display that de- 
picts knobs for adjusting sound quali- 
ties. This feature really imparts the 
feel of a traditional electronic music 
synthesizer to the program. Another 
nice wrinkle is the ability to select 
different octaves for the sound, in 
addition to "tweaking" the bass, tre- 
ble, or a combination of the two. 

You can try out your sounds as you 
create them by using the MusicMate 
keyboard with the program. And 
when you've created one you particu- 
larly like, you can store it on diskette 
for use with other programs in the 
MusicWare line. 

SUMMARY 

All the MusicWare modules reflect 
a lot of thought on the part of their 
designers. They're very easy to use; 
even for the computer music novice, 
they perform flawlessly, and they are 
all interactively compatible. The 
modular software approach allows 
you -to purchase specific-capability 
features as your needs dictate, and 
combining these MusicWare modules 
produces a full-featured music pack- 
age that's hard to beat. 

Sequential Circuits, Inc., 3051 
North First Street, San Jose, CA 
95134 (phone: 408-946-5240). 

—Tom Benford 

PROMAL 

Systems Management Associates 
Commodore 64 
Disk; $49.95 

BASIC, stand aside. A new gener- 
ation of computer languages has ar- 
rived and is taking over. And, of the 
structured languages, PROMAL is 
one of the very best. 



FREE 



10 DISKETTES 

OR 

20 C-20 CASSETTES 

A subscription to the 'Cassette of the 
Month' gets you a tape or disk full of 10 
quality Commodore 64 programs deliv- 
ered to you by first class mail every month. 
The documentation included will help you 
run great utilities like 'Word Processor,' 
and 'Budget Analyzer,' or enjoy great 
games like Frogjump" and Caterpillar 
Cave' FOR AS LITTLE AS 50 CENTS 
EACH! 

* Limited otter * Subscribe for a year 
on cassette and receive 20 Free C-20 cas- 
settes or subscribe for a year on disk and 
receive to Free 5Vi single sided double 
density diskettes! pRippc 

TAPE DISK 

1YR(12 ISSUES) 60" 75°° 

6MO|6ISSUES| 35" 1ST 

S.ngtCooes 7°° 9"° 




* We've been in Business lor moi Res »«*'« 
overlhreeyears'acquinng owiMHAODiioiosutsoipwi 

* Over 4000 satisfied color «* si oo *> snat. «* 
computer owners PERSONAL CHECKS WELCOME 1 

* Commodore 64 required 
T & D Sobscnpfjon Software 
P.O. BOX 2560 
HOLLAND. Ml 49423 
(616) 396-7577 
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^ FOR 

new commodore 
WvnK 64/128 



E-FILESb^ 

ft VERSATILE ELECTRONIC CARD 
FILE/ DAT A BASE. EASY TO USE 
PICTURE DRIVEN MENU- DESIGN 
CUSTOMIZED FILES. SORT/ 
SEARCH/ MAIL LIST/LftBELS. 
3 DRAWERS/ 200 REC/ DRAWER. 
ON DISK ONLY. . *20.95 



PageWriter I 



EASY TO USE, LOW COST WORD 
PROCESSING. BO COLUMN TEXT 
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REVIEWS 



PROMAL makes a compromise 
between the loose syntax of BASIC 
and the intense structure of LISP- 
type languages. PROMAL is proce- 
dure-oriented, which means that pro- 
grams are written in little modules, 
each of which performs a specific 
task. All of the small units of code 
are then called by a main procedure 
(program), in a structure which re- 
sembles BASIC "COSUS-RETURN"- 
called subroutines. 

There are two types of modules in 
PROMAL: procedures and functions. 
When called, functions return a val- 
ue (data or a Boolean). Procedures 
are series of program commands, 
which return no value. Within a mod- 
ule, local variables may be defined. 
In fact, modules may even be defined 
recursively with up to 256 levels of 
nesting. All modules may be sent ar- 
guments (data) on which to perform 
operations. The data structures in 
PROMAL are similar to those in 
BASIC, with the exception of Boo- 
lean data. 

Boolean data are the values TRUE 
and FALSE which may be assigned 
to a variable or be returned as the 
result of the evaluation of an ex- 
pression. One example of an expres- 
sion which returns a Boolean when 
evaluated is the CMPSTR function. 
CMPSTR compares two strings in 
relationship to an operator 
(<,<=,<>,=,>=,>). If the re- 
lationship is true (e.g. A<B), the 
CMPSTR returns TRUE, else 
FALSE. 

PROMAL also has a very differ- 
ent way of treating command words. 
AH programs, including the main 
program and all modules, are given 
names and told what arguments are 
needed for proper operation when 
initially defined. To execute a pro- 
gram, only the use of the name and 
inclusion of argument values are nec- 
essary. In a way, definition of a mod- 
ule is the same as creating a new 
command. It is even possible to cre- 
ate a whole range of sound and col- 
or commands, avoiding the annoy- 
ance of POKEing all those values into 
memory. 

However, in terms of syntax of in- 
dividual statements, PROMAL and 



BASIC vary by very little. The basic 
assignment primative is the = oper- 
ator (a primitive is an element of a 
computer language which is origin- 
ally written in machine language, as 
opposed to modules-written in 
PROMAL). The conditional con- 
structs are IF-ELSE. IF-THEN, and 
CHOOSE. The looping constructs 
are WHILE, REPEAT-UNTIL, and 
FOR. 

The most interesting and useful 
new primative is the ESCAPE- 
REFUGE construct. When an error 
occurs in a module called by another 
module, it is often desirable to return 
to the original module and restore all 
variables to their original state. Us- 
ing REFUGE, it is possible to define 
three places and states to which the 
program may return and "recover" 
from a disaster. Each REFUGE is 
given a number from one to three. 
When an ESCAPE command is exe- 
cuted, the refuge number is specified 
and all state variables are restored at 
the location corresponding to the ap- 
propriate refuge. 

PROMAL statements, unlike those 
in BASIC, have no line numbers, may 
only occupy one line, and must have 
spaces between keywords and vari- 
ables. However, these small incon- 
veniences are more than compensated 
for by the fact that PROMAL is a 
compiled language. There are two 



fundamental types of languages, in- 
terpreted and compiled. BASIC is in- 
terpreted. Interpreted languages are 
evaluated sequentially, as individual 
lines are executed. This is under- 
standably slow. Compiled languages 
are evaluated into machine language 
in one large translation effort and 
stored in machine language form in 
an object file, on disk. Then, when 
the object file is executed, it is as if 
the program was originally written in 
machine language. However, the us- 
ual problem which arises with com- 
piled languages is that the original 
program must be written into a docu- 
ment file, through a separate word 
processing program. PROMAL ful- 
ly supports creation of document 
source files by supplying a built-in 
editor. An EXECUTIVE (operating 
system) is also included, completing 
the PROMAL environment. 

As an introduction to structured 
programming languages and as an al- 
ternative to BASIC, PROMAL is well 
worth the time needed to learn it and 
the $49.95 to purchase it. Systems 
Management Associates deserves a 
round of applause for greatly extend- 
ing the computing powers of the 
Commodore 64. 

Systems Management Associates, 
3700 Computer Drive, P.O. Box 
20025, Raleigh, NC 27619 (phone: 
919-787-7703). -Rachel Schleimer 
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On page 107 of our April '85 issue, we listed incorrect last byte 
information for the BASIC Trace program. The correct last byte 
is C1FA. To enter it, load your version of Trace (,8,1), then load 
and run Flankspeed. Enter first and (correct) last byte, hit f5, 
and continue from address C1F8. After typing in the last line, 
save the program. 



CALLING ALL STARVING COMPUTER ARTISTS. . . 

If you're in need of a square meal, we can't help you. But if it's publicity you're 
starved for, we've got just the ticket. In future issues, Ahoy! will feature a gallery 
of the finest computer graphics our readers can generate. 

We invite you to send your best work on disk, accompanied by a stamped and 
self-addressed mailer, to Morton Kevelson, P.O. Box 260, Homecrest Station, 
Brooklyn, NY 11229. Indicate the drawing package that was used to create the 
image. If you employed a bit map of your own design, indicate the appropriate 
file parameters, i.e., hi-res or multicolor, location of bit map, screen and color data. 

Send along your latest masterpiece today. Who knows who might be reading? 
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SCREEN DUMPING 

ON 

THE 

COMMODORE 64 




ooner or later every pro- 
grammer with an interest in 
computer graphics will tap 
the versatility of bit mapped 
graphics. The program described 
here will serve not only as a primer 
on the creation of screen bit graph- 
ics, but will also allow reproduction 
of the screen image on your printer. 
In addition, if you study the program 
(see page 107) carefully you will learn 
something about memory manage- 
ment on the Commodore 64, as well 
as experiencing the dramatic effect of 
machine language on the speed of ex- 
ecution of the program. 

The program requires an 8-pin dot 
matrix printer with bit graphics ca- 
pability. It was written for use on ei- 
ther a Gemini 10 or I0X, using a 
standard Centronics serial to paral- 
lel interface; use with other 8-bit 
graphics printers will require some 
modification. 

SCREEN BIT GRAPHICS 

First, let's examine how bit graph- 
ics are generated on the monitor 
screen. Each standard screen char- 
acter comprises an 8 dot by 8 dot (64 
pixel) array. If we multiply this by 40 
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characters per row and 25 rows, we 
note there are 64,000 total pixels (320 
across by 200 down), each of which 
can be separately activated to form 
the screen image. Because each pixel 
is turned on or off by a 1 or (a sin- 
gle bit) in the appropriate character 
memory location, the most direct ap- 
proach is to manipulate 8 pixels at a 
time as one byte of memory. 

The basic idea behind creation of 
a screen image is depicted in Figure 



1 (see page 74). By examining the 
"zeroth" byte of character memory 
(hereafter referred to as the bit map), 
we see that pixel number 1 is con- 
trolled by bit 7, pixel 2 by bit 6, etc. 
Thus, for any of the possible num- 
bers from to 255 which may be 
stored in a byte, we generate a dif- 
ferent pattern of activated pixels. The 
entire screen will require 8000 bytes, 
arranged as shown in Figure 2 (see 
page 74). 

Let's examine version I of the pro- 
gram through line 180. In order to al- 
low for later expansion of the BASIC 
program without overwriting screen 
memory, you should carry out the 
POKEs described in line 1. This 
moves the beginning of the BASIC 
program to memory location 16384 
($4000). Next (line 20) we select an 
8K block of memory beginning at lo- 
cation 8192 ($2000) for the bit map. 
The POKE tells the VIC-II chip 
where to find the bit map and screen 
memory. Line 25 activates the screen 
bit mode. Line 30 clears the 8000 
bytes of the bit map, a process that 
takes over a minute in BASIC. As we 
will see later, it is nearly instantan- 
eous in assembly language. Line 40 
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Figure 1 

The correspondence between the bit map and its screen image. O and 
£ represent deactivated and activated pixels, respectively. The bit im- 
age to the right results from the four different values stored in the corre- 
sponding single byte on the left. 



stores in screen memory what colors 
will be used for activated and deac- 
tivated pixels. The upper 4 bits of 
each byte control the color of acti- 
vated pixels in the corresponding 
character, the lower 4 bits control the 
color of the deactivated pixel (0 = 
black, 1 = white, 2 = red, etc.). 
Thus, a 1 (00000001) results in a 
white background and black dots. 



Changing the 1 to 16 (00010000) pro- 
duces the reverse. Lines 100-180 ac- 
tually create the screen bit map. As 
an example I have chosen an expo- 
nentially damped cosine wave. Re- 
calling that our screen image is 320 
pixels wide and 200 pixels high, we 
generate a set of X, Y points which 
describe the function in lines 100 and 
105. (Y = 0, X = corresponds to 
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The arrangement of bit map memory 
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the upper-left-most pixel.) Lines 150 
through 165 determine which byte of 
the bit map (Figure 2) will contain 
the data for each point, while line 170 
determines which bit of the byte 
should be activated. For example, 
consider the point X = 6, Y = 8 
(shaded pixel in Figure 2). This cor- 
responds to LINE of CHARAC- 
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Figure 3 

The correspondence of printer bit 
map to printed image. and £ 
represent blanks and printed dots, re- 
spectively. (This is the order for the 
Gemini and Epson series of printers; 
the C-Itoh printers reverse the bit 
order.) 
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Figure 4 

The arrangement of bit map memory 
for the printer. 

TER in ROW 1. Since there are 320 
bytes per row (see Figure 2), and 8 
bytes per character, the location of the 
appropriate byte is 8192 + 1*320 + 
0*8 + = 8512. Line 170 deter- 
mines that bit 1 (seven over from the 
left; see Figure 1) will receive the T. 
Line 175 makes the appropriate 
POKE, and the point appears on the 
screen. Line 180 sends us back to cal- 
culate the next point, and this con- 
tinues until the X domain has been 
exhausted. 

BIT GRAPHICS ON 
YOUR PRINTER 

Your Gemini 10X (with interface 
in transparent mode) can be used to 
create printed pictures in a manner 
quite analogous to screen bit graph- 
ics. The main difference is in the way 
the bit map is accessed by the print- 
er. The printer prints one row at a 
time with the height of each row de- 
termined by the number of pins in the 
print head. An 8-pin print head can 
print any combination of zero to 8 
dots (vertically aligned), as shown in 
Figure 3. Comparison of this with 
Figure 1 shows that the bit map for 



a printer must be arranged different- 
ly (Figure 4) than the screen bit map 
(Figure 2). If you are doing printed 
bit graphics directly, you can plan 
your memory setup to correspond to 
Figure 4. The problem we have, how- 
ever, is to take a screen image stored 
as in Figure 2, and make it accessi- 
ble, bit by bit, as shown in Figure 4. 
Thus, to create the "zeroth" printer 
byte, we need the 7th bit of each of 



the first 8 bytes of the screen bit map, 
each multiplied by the appropriate 
power of 2. Printer byte 1 comes 
from the 6th bit of each of the first 
8 bytes of the bit map, and so on. 
Now let's look at the rest of ver- 
sion 1. Line 190 starts the printing se- 
quence when you depress the fl key 
on the Commodore keyboard. Lines 
205 and 210 activate the printer and 
set the linefeed length to 16/144". 
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Lines 215 and 220 draw a horizontal 
border, indented one inch. The ac- 
tual printing takes place in a loop of 
instructions 225-270. For each printed 
row (8 dots high) the high resolution 
bit mode is activated (225), then a 
one inch margin is created, marked 
with a " I " [CHR$(245) in 230], 
Next, in a series of nested loops (lines 
235-265), an entire row is assembled 
and printed byte by byte from the 
screen bit map. To discover how this 
section works. I recommend setting 
up a sample "character" (8 horizon- 
tally stacked bytes of the screen bit 
map) and carry through the process 
by hand to create the corresponding 
8 sequential vertical bytes of the 
printer bit map. Note also that each 
byte is printed twice (line 255) to im- 
prove clarity. At the end of the row 
another " I " is printed (line 265) 
and we return to assemble the next 
row. After the 25th row (L = 24) we 
draw another indented horizontal line 
(line 275, 280), and finally close up 
shop. 

Now that you understand how it 
works, save it and run it. Don't for- 
get the preliminary POKEs! Right 
before your eyes you will see the bit 
map zeroed (about 70 seconds), the 
field turned white (all pixels are de- 
activated, remember?), and black 
dots describing the function begin- 
ning to appear. After the screen has 
filled (about 2 minutes), press fl. 
Now the wait begins, because each 
printed line requires over 2 minutes 
to be assembled, making the entire 
plot an hour-long process! The final 



printed result is shown in Figure 5. 

A LITTLE HELP FROM 
ASSEMBLY LANGUAGE 

It would certain be preferable to 
have the image printed in a matter of 
seconds rather than hours. Fortunate- 
ly, this can be readily accomplished 
using machine language for the time- 
consuming loops (lines 230 through 
265) as well as the task of clearing 
the bit map (line 30) and setting col- 
ors (line 40). Using the technique of 
appending machine code at the end 
of our BASIC program, we now gen- 
erate version II of the program as 
follows: 

1) delete lines 20^0, and 225-265 
from version I 

2) add lines 5, 30, 195, 200, 225, 
230 and 265 of version II 

3) by PEEKing in 45 (40) and 46 
(67), we note the location of the end 
of the BASIC program is at 17192. 
Now. POKE 45. 250 to extend the 
memory allocation by 210 bytes, 
more than enough to accommodate 
the machine code. 

4) add the following instruction: 

10 F0RI=0 TO 206:INPUTB%:P 
0KES 1+I,B%: NEXT: STOP 

5) run the program, and enter the 
207 bytes of machine code, one by 
one, as listed at the end of version 
II. Do it slowly and carefully!* 

6) delete line 10 

Now save version II. and run it. 
Notice anything different? First, the 
bit map is cleared and the screen 
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Figure 5 
The final printed output from both versions of the program. 



turns white instantly. But the big 
change comes when you hit fl to print 
the screen image. Now each line is 
assembled almost as fast as the print- 
er can print it. The entire bit map is 
assembled and printed in one min- 
ute (see Figure 5)! So. you now have 
the capability to create whatever type 
of bit map you desire on the screen 
by modifying the portion of the pro- 
gram between lines 100 and 150. And 
then you can print the screen image 
as hard copy. (For another applica- 
tion of this program, see the follow- 
up article next month.) 

♦Should you ever want to print the ma- 
chine code at the end of your program, 
use the following sequence: 

7 OPEN4,4,2:CMD4:J=0 

9 F0RI=0 TO 206: PRINT PEEK 

(Sl+I) ; : J«J+1 

11 IF J > 15 THEN PRINT CH 

R$(10);:J=0 

13 NEXT:PRINT#4,:CL0SE4:ST 

OP 

A WORD ABOUT THE 
MACHINE CODE 

If you're interested in how the ma- 
chine code does its job, disassem- 
bling the program and studying the 
assembly language is recommended. 
The first 31 lines accomplish the 
clearing of the bit map and setting 
screen color. Note that locations 251 
(SFB) and 252 ($FC) are used as zero 
page indirect addresses to the bit 
map. 

The assembling of lines for the 
printer is more complicated, and be- 
gins in line 32. Again locations 251 
and 252 are used as indirect point- 
ers for the section of memory being 
assembled (see line 195 in version II). 
Also, a table of powers of 2 is stored 
in 2048-2055 ($0800-$0807); see line 
200 of version II. A step-by-step an- 
alysis of this program, though beyond 
the scope of this paper, would show 
that it accomplishes all the same 
things as lines 230-265 in the origin- 
al version, but the machine code ex- 
ecutes over 100 times faster! For 
those starting their foray into machine 
language programming, I recommend 
this as an instructive example. □ 
SEE PROGRAM L1STISG OX PAGE 107 
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An Inside Look At Your Commodores Microprocessor 
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Svery computer can be divided into three main 
parts: a memory (often subdivided into RAM 
and ROM), input and output devices (such as 
keyboards, video monitors, cassette record- 
ers, and disk drives), and a central processing unit, or 
CPU. 

In a microcomputer such as the Commodore 64, all 
the functions of a CPU are contained in a microproces- 
sor unit (sometimes abbreviated MPU). And your Com- 
modore's MPU is a very large scale integrated circuit 
(VLSI) called the 6510. In this column, we're going to 
peek inside the 6510 chip and see what makes it go. 

The 6510 microprocessor, an improved version of the 
6502 chip used in Apple and Atari computers, contains 
seven main parts: an arithmetic-logical unit (ALU) and 
six addressable registers. 

The ALU is one of the most important components 
of the 6510 chip. Every time the 6510 performs a calcu- 
lation or a logical operation, the ALU is where all the 
work is done. 

The ALU can actually perform only two kinds of cal- 
culations: addition and subtraction. Division and multi- 
plication problems can also be solved by the ALU, but 
only in sequences of addition and subtraction operations. 

The ALU can compare values, too— but only by sub- 
tracting one value from the other. By performing a sub- 
traction operation, the ALU can determine whether one 
number is larger than the other, or the two numbers are 
the same. 

When two numbers arc to be added, subtracted, or 
compared, both are fed into the ALU, along with a sim- 
ple three-letter instruction called a mnemonic. When 'the 
requested calculation has been performed, its result is 
left in a special 6510 register called an accumulator. Once 
a value is stored in the 6510's accumulator, it can be moved 
into any other 6510 register, or any register in your Com- 
modore's memory. 

Now we'll look at how the ALU and the accumulator 
in the 6510 chip work together. Suppose you wanted your 
computer to add 2 and 2, then place the result into a cer- 
tain memory register. You could use an assembly lan- 
guage routine like this: 



LDA #02 
ADC #02 
STA $FB 

The first instruction in this routine, "LDA", means "load 
the accumulator" (with the value that follows). In this 
case, that value is 2. The "#" sign that is in front of the 
2 means that the 2 is to be interpreted as a literal number, 
rather than as the address of a memory location in your 
computer. 

The second instruction in the routine, "ADC", means 
"add with carry." In this addition problem, there is no 
number to be carried, so the "carry" part of the instruc- 
tion has no effect here, and all the ADC instruction does 
is add 2 and 2. 

The third and last instruction in our routine, "STA", 
means "store the contents of the accumulator" (in the 
memory address that follows). 

As you can see, the memory address that follows the 
instruction "STA" is $FB— the hexadecimal equivalent of 
the decimal number 251. 

Since there is no "#" sign in front of the hex number 
SFB, your assembler will not interpret $FB as a literal 
number. Instead. SFB will be interpreted as a memory 
address — and your Commodore will store the sum of 2 
and 2 in Memory Register SFB. 

(Incidentally, if you did want your assembler to inter- 
pret SFB as a literal number, you would have to write 
it "#SFB." When both a "#" symbol and a dollar sign ap- 
pear before a number, it is interpreted as a literal hexa- 
decimal number.) 

If the third line of our routine read "STA #$FB", how- 
ever, that would be a syntax error -because "STA" (store 
the contents of the accumulator in...) is an instruction 
that must be followed by a value that can be interpreted 
as a memory address, not by a literal number. 

Besides the accumulator, the 6510 processor has five 
other registers: the X Register, the Y Register, the Pro- 
gram Counter, the Stack Pointer, and the Processor Sta- 
tus Register. Here is a brief summation of the functions 
of each: 

• The X Register (abbreviated "X") is an 8-bit regis- 
ter often used for temporary storage of data during a pro- 
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gram. But it has a special feature: it can be incremented 
and decremented with a pair of one-byte assembly lan- 
guage instructions (INX and DEX). It is therefore often 
used as an index register, or counter, during loops and 
read/data -type instructions in programs. 

• The Y Register (abbreviated "Y") is also an 8-bit reg- 
ister, and can also be incremented and decremented with 
a pair of one-byte instructions (INY and DEY). So, like 
the X Register, it is used both for data storage and as 
a counter. 

• The Program Counter (abbreviated "PC") is a pair 
of 8-bit registers used together as one 16-bit register. The 
two 8-bit registers are sometimes referred to as "Program 
Counter-Low (PCL)" and "Program Counter-High 
(PCH)." 

The program counter always contains the 16-bit mem- 
ory address of the next instruction to be executed by the 
6510 processor. When that instruction has been carried 
out, the address of the next instruction is loaded into the 
program counter. 

• The Stack Pointer (abbreviated "S" or "SP") is an 
8-bit register that always contains the address of the top 
clement in a block of RAM, called the hardware stack 
(usually called simply "the stack"). This is a segment of 
memory in which data is often stored temporarily dur- 
ing the execution of a program. We'll go into more de- 
tail about how the stack works later on. 

• The Processor Status Register (usually called just 
the "status register," but abbreviated "P") is an 8-bit reg- 
ister that keeps track of the results of operations per- 
formed by the 6510 processor. 

THE PROCESSOR STATUS REGISTER 

The processor status register is different from the other 
registers in the 6510 microprocessor. It isn't used for stor- 
ing ordinary 8-bit numbers, as the others are. Instead, 
it uses its bits as flags to keep track of several kinds of 
important information. 

Four of the status register's bits are called status flags: 
the carry flag (C), the overflow flag (V), the negative 
flag (N), and the zero flag (Z). These are used to keep 
track of the results of operations being carried out by 
the other registers inside the 6510 processor. 

Three of the P register's other bits, called condition 
flags, are used to determine whether certain conditions 
exist in a program. These three bits are the interrupt dis- 
able flag (I), the break flag (B), and the decimal mode 
flag (D). 

An eighth bit in the status register is not used. 

THE PROCESSOR STATUS FLAG 

The processor status register can be visualized as a 
rectangular box containing six square compartments. 
Each "compartment" in the box is actually a bit, and each 
bit is used as a flag. 

If a given bit is a "1" instead of a "0," it is said to be 
a flag that is set. 

If a given bit is a "0" instead of a "1," it is said to be 



a flag that is cleared. 

The bits in the 6510 status register- like the bits in all 
8-bit registers— are customarily numbered from to 7. 
The rightmost bit is Bit 0, the leftmost is Bit 7. 
THE PROCESSOR STATUS REGISTER 



BITS 

FLAGS 


7 

N 


6 

V 


5 


4 
B 


3 

D 


2 
I 


1 
Z 




c 


1 i 1 1 II 1 



Following is a complete list of the flags in the 6510's 
processor status register, and an explanation of each. 

Bit 0— The Carry Flag (C): As you'll recall from last 
month, it isn't easy to do 16-bit arithmetic with an 8-bit 
chip like the 6510. When the 6510 chip is required to per- 
form an addition operation on a number greater than 255 
-or if the result of a calculation might be greater than 
255 -a program has to be written that will break each 
number down into 8-bit segments for processing, and will 
then patch all of the numbers back together. 

This kind of mathematical cutting and pasting involves 
a lot of carrying (during addition) and borrowing (dur- 
ing subtraction). And the carry flag of (he 6510 P regis- 
ter is the flag that keeps up with all of this carrying and 
borrowing. If an addition operation results in a carry, 
the carry flag is automatically set; if a subtraction oper- 
ation requires a borrow, the carry flag notes that, too. 

Since the carry flag is almost constantly being set and 
cleared as a result of carries and borrows in addition and 
subtraction, it's a good idea to clear it before an addi- 
tion operation is to be carried out— and to set it before 
a subtraction operation takes place. Otherwise, your cal- 
culations may be messed up by the leftover results of pre- 
vious operations. 

The assembly language instruction that clears the P 
register's carry bit is CLC. which stands for "clear carry." 
The instruction that sets the carry bit is SEC. which stands 
for "set carry." 

Bit 1— The Zero Flag (Z): When the result of an arith- 
metical or logical operation is zero, the status register's 
zero flag is automatically set. Addition, subtraction, and 
logical operations can all result in changes in the status 
of the zero flag. If a memory location or an index regis- 
ter is decremented to zero, that will also result in a set 
zero flag. 

An ironic 6510 convention is that when the result of 
an operation is zero, the zero flag is set to 1, and when 
the result of an operation is not zero, the zero flag is 
cleared to 0. It's important to understand this concept, 
since it would be easy to assume that the zero flag oper- 
ates in the opposite manner. 

There are no assembly language instructions to clear 
or set the zero flag. It's strictly a "read" bit, so instruc- 
tions to write to it are not provided. 

Bit 2— The Interrupt Disable Flag (I): Some Com- 
modore programs contain interrupts- instructions that 
halt operations temporarily so that other operations can 
take place. Some of these are called maskable interrupts 
because you can prevent them from taking place by in- 
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eluding "masking" instructions in a program. Others are 
called nonmaskable because you can't stop them from 
taking place, no matter what you do. 

You can disable a maskable interrupt with the P reg- 
ister's interrupt disable flag. When it is set, maskable in- 
terrupts are not permitted; when it is clear, they are. 

The assembly language instruction to clear the inter- 
rupt flag is CLI. The instruction to set the interrupt flag 
is SEI. 

Bit 3— The Decimal Mode Flag (D): The 6510 proces- 
sor normally operates in binary mode, using standard 
binary numbers of the type discussed last month. But 
the 6510 can also operate in what is known as a binary- 
coded decimal (or BCD) mode. To put the 6510 into BCD 
mode, you have to set the decimal flag of the 6510 status 
register. 

BCD arithmetic is slower than plain binary arithmetic, 
and it consumes more memory. But its results, unlike 
those of plain binary arithmetic, are always 100% accur- 
ate. So it is often used in programs in which accuracy 
is more important than speed or memory efficiency. 

The assembly language instruction that clears the deci- 
mal flag is CLD. The instruction that sets the flag is SED. 

Bit 4— The Break Flag (B): The break flag is set by 
a special assembly language instruction, BRK. Program- 
mers often use the break instruction while debugging. 
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When the instruction is used and the break flag is set, 
certain error-flagging operations take place and control 
of the computer returns to the programmer. 

Bit 5— Unused: For some reason, the microprogram- 
mers who designed the 6510 status register left one bit 
unused. This is the one. 

Bit 6-The Overflow Flag (V): The overflow flag is 
used to detect an overflow from Bit 6 (the next-to-left- 
most bit) in a binary number. If you don't know what 
that means yet, don't be concerned. The overflow flag 
is used primarily in advanced 6510 arithmetic— specifi- 
cally, to keep track of changes in the plus and minus signs 
of signed numbers when signed binary arithmetic is be- 
ing performed. As a beginning- or intermediate-level 
Commodore assembly language programmer, you'll rarely 
— if ever- have occasion to use the overflow flag. Nev- 
ertheless, we'll discuss it at length in a later column. 

The assembly language instruction that clears the over- 
flow flag is CLV. There is no instruction to set the flag, 
since it's read-only. 

Bit 7— The Negative Flag (N): The negative flag is 
set when the result of an operation is negative, and cleared 
when the result is zero. It is often used in operations in- 
volving signed numbers, and has other uses that will be 
discussed in later columns. There are no instructions to 
set or clear the negative flag; there is no need for any, 
since the flag is used for test purposes only. 

PROGRAM: THE 6510 SIMULATOR 

To give you a closeup look at what happens inside your 
computer when it runs an assembly language program, 
I've created a BASIC program called the 6570 Simulator 
(see page 98). It is not a machine language assembler, 
but it works much like one. When you load it and run 
it, it will present you with a screen display that will show 
you exactly what happens inside your 6510 chip's X, Y, 
and P registers when your computer is running an as- 
sembly language program. 

To use the 6510 Simulator, all you have to do is type 
in legal statements written in assembly language. You can 
use it with any of the instructions mentioned in this col- 
umn, and with all other instructions that are legal in 6502/ 
6510 assembly language. The simulator will not accept 
labels or indirect addressing modes (two more topics that 
will be discussed in later columns). It will also reject 
statements that contain incorrect spacing, syntax errors, 
illegal address modes, and unacceptably long numbers. 
And, although it can read memory locations, it can't write 
to them. So it can't freeze up your computer while you're 
testing out a program. 

The 6510 Simulator is a rather long and complex pro- 
gram, but well worth the time it will take to type it. If 
an assembly language routine won't work correctly, the 
6510 Simulator will often show you exactly what's going 
wrong. So please type it and save it (or purchase this 
month's Ahoy! disk or cassette). By the time we get to 
later columns in this series, you'll be glad you did. □ 
SEE PROGRAM LISTING ON PAGE 98 
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CCMMODARIES 



PROGRAMMING CHALLENGES 

By Dale Rupert 




ach month, we'll present several challenges de- 
signed to stimulate your synapses and toggle 
the bits in your cerebral random access mem- 
ory. We invite you to send your solutions to: 

Commodores c/o Ahoy! 

P.O. Box 723 

Bethel, CT 06801 

We will print the most interesting and/or unusual solu- 
tions. Be sure to identify the name and number of the 
problems you are solving. Also show sample runs if pos- 
sible, where appropriate. Programs on diskettes are wel- 
come, but they must be accompanied by listings. Also 
tell what makes your solutions unique or interesting, if 
they are. You must enclose a stamped, self-addressed en- 
velope if you want any of your materials returned. 

Your original programming problems, suggestions, and 
ideas are equally welcome! The best ones will become 
Commodores. 

Problem #18-1: Cycling Function 

Jim Speers (Niles, MI) suggested this problem. Com- 
plete the function definition in line 10 so that the output 
in line 30 will cycle from to 100 and back again in 

steps of 5. Perhaps a little head scratching is in order. 



10 DEF FNC(D)=... 

20 D=5 : X=0 

30 PRINT X : X=X+D 



D=FNC(D) : GOTO 30 



Jim sent some general purpose cycling functions which 
we will reveal next month. 



Problem #18-2: Billiard Balls 

Wallace Leeker (Lemay, MO) has sent his solution to 
the classic billiard ball problem. A warning before you 
start on this one: it's addictive and time consuming. Here 
it is: 

You have twelve billiard balls, all identical in appear- 
ance. One has an internal flaw, making it either heavier 
or lighter than the other eleven. The computer has a sim- 
ple balance scale and is allowed only three weighings 
in order to determine which is the flawed ball. 

The user will decide which of the balls, numbered 1 
through 12, is the culprit. The computer will select a 
combination of balls to put onto the balance (some on 
the left side and some on the right) . The user will then 
tell the computer whether the scale is a) heavy on the 



left, b) balanced, or c) heavy on the right. The compu- 
ter will repeat this sequence two more times. After the 
user's third response, the computer will tell which ball 
is different and whether it is heavy or light. 

If some of you end up dreaming about billiard balls, 
don't say we didn't warn you. 



Problem #18-3: Scroll Ski 

Use the Commodore's screen scrolling to create a 
downhill skiing game. One simple catch: your program 
must be only one or two lines long. As easy as that! 



Problem #18-4: Letter Math 

Here's one of millions of similar problems. Perhaps 
you've solved them with paper and pencil before. This 
time you can be lazy and let the computer do all the work. 
Write a program to let the computer find values of X, 
Y, and Z to make this sum correct. Except for FOR and 
NEXT statements, use only one statement per program 
line. By the way, Z must not be 0. 

XYZ 
ZY 

X 



YXX 



This month we will look at readers solutions to Feb- 
ruary's Commodores as well as a few odds and ends. First 
I want to reiterate the time schedule for this column. This 
June issue is being written in mid-February. All letters 
received by the middle of the magazine cover month will 
be given prime consideration for publication. Respons- 
es to February Commodores received after the middle 
of February will still be read, but they have less proba- 
bility of being mentioned since they are too late to be 
discussed this month. Don't let that discourage you from 
sending your solutions any time. The most unusual ones 
will be included in this column. If you sent a valid solu- 
tion to some of the Commodores but your name didn't 
appear in genuine print, it is probably because your solu- 
tion didn't reach us before mid-month. 

In response to Commodore #10-1: Numeric Palindrome 
from last October, James Killman (Memphis, TN) men- 
tioned that he ran his program for 28 days. 12 hours, 
28 minutes, and 46 seconds before he got fed up and 
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quit-without a solution! His program cycled through 
12,954 passes and reached a number 5,366 digits long. 
The problem was to take a number (196), reverse it, add 
the two together, see if the sum is a palindrome, and if 
not repeat the process using the sum instead of the ori- 
ginal number. The palindrome for 196 has supposedly 
not been determined even on large computers. Mr. Kill- 
man's routine POKEs each digit into a reserved section 
of memory, reversing the direction each time. It POKEs, 
compares, reverses the digits, and then adds them. The 
numbers can be as large as the amount of memory al- 
lows. If you would like to see a listing of Mr. Killman's 
twenty line BASIC program, send a stamped, self-ad- 
dressed envelope to Commodores with your request. 

Rick Nash (Millersburg, OH) sent the following as- 
sembly language implementation of Commodore #13-3: 
Micro Calc. As we mentioned last month, the solution 
to this problem doesn't really do anything that isn't al- 
ready available in BASIC. The user can easily type in 
a string of numbers and mathematical operators in com- 
mand mode and let the computer print the results. Writing 
a program to let the user type the numbers and opera- 
tors gives some insight into the problems of parsing and 
of how a compiler might be created. Rick's solution shows 
some useful procedures for accessing various BASIC util- 
ity routines from assembly language. The assembly lan- 
guage listing and a BASIC program to run it are listed 
below: 

1 REM ASSEMBLY LANGUAGE USR ROUTINE 

2 REM SOLUTION TO PROBLEM #13-3 

3 REM MICRO CALC 

4 REM BY RICK NASH 

5 REM 

90 :*=$02A7 ; PROGRAM ORIGIN 

100 :TXTPTR=$7A 

110 : INDEX =$22 

120 :FRESPC=$35 

130 :VARPTR=$64 

140 :BUFFER=$0200 

150 :CHRGET=$0073 

160 :M0VSTR=$B68C 

170 :CRUNCH=$A57C 

180 :FRMEVL=$AD9E 



(VIC=$D68C) 
(VIC=$C57C) 

(VIC=$CD9E) 



190 REM SAVE TEXT POINTER ON STACK 



200 
210 
220 
230 



LDA TXTPTR 

PHA 

LDA TXTPTR+1 

PHA 



240 REM (64) PTS. TO STRING DESCRIPTOR 



250 
260 
270 
280 
290 
300 
310 
320 



LDY #0 

LDA (VARPTR).Y 

PHA 

INY 

LDA (VARPTR),Y 

STA INDEX 

INY 

LDA (VARPTR),Y 



; STRING LENGTH 
;0N STACK 

; ADDRESS LOW 



; ADDRESS HIGH 



330 :STA INDEX+1 

340 :PLA 

350 :TAY 

360 :LDA #0 

370 :STA BUFFER, Y 

380 :LDA #<BUFFER 

390 :LDX #>BUFFER 

400 :STA FRESPC 

410 :STX FRESPC+1 

420 :STA TXTPTR 

430 :STX TXTPTR+1 

440 :TYA 



; STRING LENGTH 
;T0 Y 

;SET END 



SET PTRS FOR 
VARIABLE MOVE 
SET PTRS FOR 
CRUNCH ROUTINE 
.A=VAR LENGTH 

450 REM MOVE VARIABLE TO INPUT BUFFER 

460 :JSR MOVSTR 

470 REM TOKENIZE STRING 

480 :JSR CRUNCH 

490 REM BUMP TEXT POINTER 

500 :JSR CHRGET 

510 REM EVALUATE EXPRESSION 

520 :JSR FRMEVL 

530 REM RESTORE TEXT POINTER 

540 :PLA 

550 :STA TXTPTR+1 

560 :PLA 

570 :STA TXTPTR 

580 REM RETURN TO USR ROUTINE & ASSIGN 

590 REM VALUE IN FAC1 TO FLOATING 

600 REM POINT VARIABLE 

610 :RTS 

1 REM BASIC SOLUTION TO PROBLEM #13-3 

2 REM MICRO CALC 

3 REM BY RICK NASH 

4 REM 

40 F0RA=679 TO 738: READ D:P0KE A, D: NEXT 

50 POKE 785, 167: POKE 786,2 

60 INPUT"PR0BLEM M ;A$:IF A$="END" THEN E 

ND 

70 PRINT"THE ANSWER IS: ";USR(A$) : PRINT: 

GOTO 60 

80 DATA 165,122,72,165,123 

90 DATA 72,160,0,177,100 

100 DATA 72,200,177,100,133 

110 DATA 34,200,177,100,133 

120 DATA 35,104,168,169,0 

130 DATA 153,0,2,169,0 

140 DATA 162,2,133,53,134 

150 DATA 54,133,122,134,123 

160 DATA 152,32,140,182,32 

170 DATA 124,165,32,115,0 

180 DATA 32,158,173,104,133 

190 DATA 123,104,133,122,96 

The BASIC program installs the machine language rou- 
tine, then asks the user to enter a numeric problem such 
as 2-3*SQR(18), which is stored as a string. You may 
use any BASIC functions, previously defined floating 
point or integer variables, or mathematical or Boolean 
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operators in the numeric problem. In the machine lan- 
guage program, the sequence is as follows: 1) the string 
(AS) is copied into the input buffer ($0200), 2) the string 
is scanned and tokenized, 3) the formula is evaluated us- 
ing BASIC'S evaluator routine with the result left in the 
floating point accumulator, and 4) the USR routine re- 
turns the value from the floating point accumulator (FAC1) 
Below is the solution from R.W. Kober (Buffalo, TX) 
to his Cotnmodare #17-2: Printer Sentinel from last month 

1 REM R.W. KOBER 

2 REM PROBLEM #17-2 : PRINTER SENTINEL 
5 GOTO 100 

10 OPEN 4,4 

20 PRINT#4:IF ST AND 128 THEN 40 

30 CLOSE 4: RETURN 

40 PRINT TAB(248)"THE PRINTER IS NOT ON! 

"CHR$(19):G0T0 20 

99 REM MAIN PROGRAM 

100 PRINT CHR$(147) 

110 GOSUB 10 :REM <« CHECK ON PRINTER 
120 OPEN 4,4:PRINT#4,"PRINTER IS ON" 
130 CLOSE 4 

Before printing, the program calls this subroutine. If the 
printer is not on, the message is printed, and the sub- 
routine loops until the printer is turned on. If the printer 
is on, control is returned immediately to the calling pro- 
gram. Notice the use of the ST (STATUS) function. Also 
notice that the space between the ST and the AND is 
necessary. Can you figure out why? Omit the space and 
see what happens. 

John Twardowski (Albany, NY) sent solutions Com- 
modores #14-1: Maximus Input and #14-2: Singles Only 
combined into one program, 

1 REM JOHN TWARDOWSKI 

2 REM PROBLEMS 14-1 AND 14-2 

3 REM MAXIMUS INPUT AND SINGLES ONLY 

4 REM 

10 PRINT CHR$(147) : LF$=CHR$(157) 
20 PRINT CHR$(164); 
30 GET A$:IF A$= ,m THEN 30 
40 IF A$=CHR$(13) THEN PRINT LF$" " : GO 
TO 70 

50 IF A$=CHR$(20) THEN PRINT LF$" "LF$LF 
$;:B$=LEFT$(B$,LEN(B$)-1):G0T0 20 
60 B$=B$+A$: PRINT LF$A$;:G0T0 20 
70 DIM A(90):F0R K=l TO LEN(B$) :B=ASC(MI 
D$(B$,K,1)):A(B)=A(B)+1:NEXT 
80 PRINT :PRINT"MISSING": FOR K=65 TO 90:1 
F A(K)=0 THEN PRINT CHR$(K)" "; 
90 NEXT: PRINT :PRINT"DUPLICATES": FOR K=65 
TO 90: IF A(K)>1 THEN PRINT CHR$(K)" "; 
100 NEXT 

Several other readers took a similar approach to crea- 
ting a cursor in Problem #14-1. There was no require- 



ment that the cursor must blink. The majority of the solu- 
tions to Problem #14-2 were much like John's approach. 
Paul Sisul (St. Louis, MO) sent the following solu- 
tion to Problem #14-2: Singles Only which doesn't use 
any IF statements. Instead he uses logical expressions. 
Furthermore, his solution contains no arrays or sub- 
scripted variables. 

1 REM PAUL SISUL 

2 REM PROBLEM #14-2 : SINGLES ONLY 

3 REM 

20 INPUT S$:F0R J=65 TO 90:C=0:F0R K=l T 
LEN(S$):C=C-(MID$(S$,K,1)=CHR$(J)) 
30 NEXT K: PRINT CHR$(48*(1+(C=1))+C);" " 
;CHR$(J*-( COl)),: NEXT J 

To understand Paul's solution, recall that a logical ex- 
pression has a value of if it is false and —1 if it is true. 
Consequently the function CHR$(J * -(C<>1) ) rep- 
resents CHRS(0) for any letter whose count is equal to 
one If the current letter's count does not equal one, the 
expression (C< > 1) is true and has the value — 1. There- 
fore -(C< >1) equals 1, and CHR$(J * -(C<>1) ) 
equals CHR$(J). The other CHR$ function in line 30 
converts the count C into its ASCII value which is also 
printed. Some tricky but interesting programming! 

Several readers sent panagrarns from various sources 
in response to Problem #14-2: Singles Only. Mike Skloff 
(New York, NY) included his favorite typing test, "Pack 
my box with five dozen liquor jugs" as well as an even 
shorter "Waltz, nymph, for quick jigs vex Bud." Neither 
of these are perfect pangrams since they contain dupli- 
cate letters. Some of the perfect ones he sent include: 
Cwm, fjord-bank glyphs vext quiz. 
Zing! Vext cwm fly jabs Kurd qoph. 
Milk-vat fez bugs qoph-crwd jynx. 

These are from Dmitri A. Borgmann's book Language 
on Vacation (Scribner's, 1965). Mr. Skloff leaves the 
translations of these sentences up to you. Dig out the un- 
abridged dictionary for these! 

Jim Root (Whitmore Lake, MI) sent this sentence con- 
taining all the letters: "Wafting zephyrs quickly vexed 
Jumbo." I think he's talking about a flying elephant. Clif- 
ford Dedmore Jr. (North Bend, OR) sent "Cwm kvutza 
qoph jynx fled brigs" from the Guinness Book of World 
Records, which was supposedly found with the use of 
three computers. Again, the translation is up to you. 

There were many good solutions to Problem #14-3: 
Digital Deduction. Most readers knew that by using bi- 
nary search techniques the computer can deduce the user's 
number (between 1 and 1000) in ten or fewer guesses. 
In fact, since 1024 is two raised to the tenth power, the 
range of numbers could be 1 to 1024 and still guarantee 
that not more than ten guesses are needed. 

David Alan Wright (New Britain, CT) sent the follow- 
ing solution which requires only (are you ready for this?) 
nine, yes, nine guesses by the computer! Now before you 
start throwing the books on mathematical theory at me, 
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a word of explanation. As David points out, "The max- 
imum number of guesses is nine. After each guess, the 
possibilities are halved. On the ninth guess, only one pos- 
sible number is left, and the program tells you the an- 
swer rather than asks, so a tenth guess is unnecessary.'* 
Voila! His solution is listed below. 

1 REM COMMODARE #14-3: DIGITAL DEDUCTION 

2 REM SOLUTION BY DAVID ALAN WRIGHT 

3 REM 

10 PRINT" CHOOSE A NUMBER FROM 1 TO 1000 
AND HIT RETURN": INPUT A$:H=1000 
20 A$="X":IF(L+H)/2<>L+1THEN N=INT((L+H) 
/2):PRINT"IS"N"H, L OR EQUAL" ;: INPUT A$ 
30 IF LEFT$(A$,1)="H" THEN H=N : G=G+1 : GOT 
20 
40 IF LEFT$(A$,1)="L" THEN L=N : G=G+1 : GOT 

20 

50 PRINT"AFTER"G"GUESSES YOUR NUMBER IS 
";:IF (L+H)/2=L+1 THEN PRINT L+1:END 
60 PRINT N 

Chuck McGaffin (Ballston Lake, NY) sent an equa- 
tion for calculating the maximum number of guesses (N) 
required to find a single item from a group of M items: 

N = INT(L0G(M)/L0G(2) +1) 

Wallace Leeker (Lemay, MO) simplified the mathe- 
matics of this problem by making his first guess 512. 
From then on. he merely divided the guess by two and 
either added or subtracted the result to obtain the next 
guess. That way he eliminated all the INT and rounding 
statements that other readers used. 

John Deering (Tustin, CA) and Chuck McGaffin both 
sent separate programs which simulated the entire game. 
Both programs tabulated the numbers of computer guess- 
es required for each chosen number from 1 to 1000. For 
example if the user thought of the number 500, the com- 
puter would guess it on the first try. If the target number 
was 250, the computer could guess it on the second try, 
and so forth. Mr. Dealing's program calculated the maxi- 
mum and the average number of guesses required for all 
selected numbers. Mr. McGaffin's program below keeps 
track of the total of one-guess numbers, two-guess num- 
bers, etc. Perhaps you could expand this concept to find 
the "safest" targets, i.e., the numbers that require the most 
computer guesses to deduce. 

1 REM CHUCK MCGAFFIN 

2 REM PROBLEM #14-3 : DIGITAL DEDUCTION 

3 REM COMPUTER SIMULATION TO VERIFY THAT 
EVERY NUMBER IS GUESSED IN < 10 TRIES 

4 REM 

10 FOR N=l TO 1000:NG=1 
20 LL=1:UL= 1000: 1=500: GOTO 40 
30 I=INT((LL+UL)*.5):NG=NG+1 
40 IF N<I THEN UL=I-1:G0T0 30 
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50 IF N>I THEN LL=I+1:G0T0 30 

60 IF NG>10 THEN PRINT N 

70 G(NG)=G(NG)+1 

80 NEXT 

90 FOR J=l TO 10:PRINT G(J);:NEXT 

The final solutions this month are for Problem #14-4: 
Roman Translation. The user types a Roman numeral 
and the computer gives the Arabic equivalent. These pro- 
grams from Clifford Dedmore Jr. (North Bend, OR) and 
John Immarino (Hackensack, NJ) were chosen from sev- 
eral submitted because of their brevity and because they 
use such greatly differing approaches to the solution. 

1 REM CLIFFORD DEDMORE JR. 

2 REM PROBLEM #14-4 : ROMAN TRANSLATION 

3 REM 

10 DIM T(20):INPUT"ENTER ROMAN NUMERAL"; 
A$ 

20 FOR K=l TO LEN(A$):B$=MID$(A$,K,1) 

30 L=-(B$='T , )-5*(B$="V")-10*(B$="X")-50 

*(B$="L")-100*(B$="C")-500*(B$="D") 

35 L=L-1000*(B$="M") 

40 T(K)=L:NEXT 

50 FOR K=l TO LEN(A$):IF T(K)>=T(K+1) TH 

EN TT=TT+T(K):GCTO 70 

60 TT=TT+T(K+1)-T(K):K=K+1 

70 NEXT: PRINT TT 



ROMAN TRANSLATION 



1 REM JOHN IMMARINO 

2 REM PROBLEM #14-4 

3 REM 

10 V$="MDCLXVI" 

20 INPUT"ROMAN NUMERAL" ;R$:L=7 

30 FOR A=LEN(R$) TO 1 STEP -1 

40 :X=2:F=5000 

50 ::F0R B=l TO 7 

60 :::IF MID$(R$,A,1)=MID$(V$,B,1) THEN 

C=B:B=7 

70 :::X=ABS(X-7):F=F/X 

80 : :NEXT B 

90 :T=T+F*((C>L)-(C<=L)):L=C 

100 NEXT A 

110 PRINT"ARABIC";T: PRINT :T=0: GOTO 20 

Notice Clifford's use of the "conditional LET" state- 
ment in line 102. This technique is based upon the con- 
cepts of logical expressions which we discussed above. 
John also employs a logical expression in line 180 to de- 
termine the correct result when a smaller value occurs 
before a larger value and must be subtracted from it. A 
good exercise would be to "play computer" and figure 
out how both of these programs work. Jim Speers (Niles, 
MI) pointed out that these programs work only if the user 
types in Roman numerals in the proper format. An input 
such as "CIVX," for example, will be evaluated, but it 

Continued on page 114 



PROGRAM LISTINGS 



Attention new Ahoy! readers! You must read the following information very 

carefully prior to typing in programs listed in Ahoy! Certain Commodore 

characters, commands, and strings of characters and commands will appear in 

a special format. Follow the instructions and listing guide on this page. 




n the following pages you'll find several 
programs that you can enter on your 
Commodore computer. But before doing 
so. read this entire page carefully. 
To insure clear reproductions, Ahoyl's program 
listings are generated on a daisy wheel printer, in- 
capable of printing the commands and graphic char- 
acters used in Commodore programs. These are 
therefore represented by various codes enclosed in 
brackets [ ]. For example: the SHIFT CLR/HOME 
command is represented onscreen by a heart C ■ 
The code we use in our listings is [CLEAR]. The 
chart below lists all such codes which you'll encoun- 
ter in our listings, except for one other special case. 
The other special case is the COMMODORE and 
SHIFT characters. On the front of most keys are two 
symbols. The symbol on the left is obtained by 
pressing that key while holding down the COMMO- 
DORE key; the symbol on the right, by pressing 
that key while holding down the SHIFT key. COM- 
MODORE and SHIFT characters are represented in 
our listings by a lower-case "s" or "c" followed by 
the symbol of the key you must hit. COMMODORE 



J, for example, is represented by |c J|, and SHIFT J 
by [s J], 

Additionally, any character that occurs more than 
two times in a row will be displayed by a coded list- 
ing. For example, [3 "[LEFT]"] would be 3 
CuRSoR left commands in a row, [5 "[s EP]"] 
would be 5 SHIFTed English Pounds, and so on. 
Multiple blank spaces will be noted in similar fash- 
ion: 22 spaces, for example, as [22 " "]. 

Sometimes you'll find a program line that's too 
long for the computer to accept (C-64 lines are a 
maximum of 80 characters, or 2 screen lines, long: 
VIC 20 lines, a maximum of 88 characters, or 4 
screen lines). To enter these lines, refer to the BASIC 
Command Abbreviations Appendix in your User 
Manual. 

On the next page you'll find our Bug Repellent 
programs for the VIC 20 and C-64. The version ap- 
propriate for your machine will help you proofread 
our programs after you type them. (Please note: the 
Bug Repellent line codes that follow each program 
line, in the whited-out area, should not be typed in. 
See the instructions preceding each program.) □ 



When 








\i>u Set 


It Mr;ilh 

Screen Clear 


You Typ 
SHIFT 


t 1 


[CLEAR] 


CLR/HOMK 


[HOME] 


Home 




CLR/HOME 


[UP] 


Cursor lp 


SHIFT 


t CKSR i 


[DOWN] 


Cursor Down 




1 CRSR ♦ 


[LEFT] 


Cursor 1*11 


SHIFT 


♦CKSK* 


[RIGHT] 


Cursor Riyltl 




—< KSR-«- 


[SS] 


Shifted Space 


SHIFT 


Space 


[INSERT] 


Insert 


SHIFT 


INST'DF.l. 


[DEL] 


Delete 




INST/DFX 


[RVSON] 


Reverse On 


CNTRI. 


M 


[RVSOFF] 


Reverse OIT 


CNTRL 


II 


[UPARROW] 


t'p Arrow 




♦ 


[BACKARROW] 


Back Arrow 




* 


[PI] 


PI 




7T 


[EP] 


Knulish Pound 




i 



You 
Will See 



When 



You 



You See 


II Means 
Black 


You T>pt 
CNTRI. 


Wi 


1 See 


[BLACK] 


1 


B 


[WHITE] 


\\ trite 


CNTRI. 


2 


m 


[RED] 


Red 


CNTRI. 


3 


n 


[CYAN] 


Cyan 


CNTRI. 


4 


M 


[PURPLE] 


Purple 


CNTRL 


5 


■ 


[GREEN] 


(ireen 


CNTRI. 


6 


EH 


[BLUE] 


Blue 


CNTRL 


7 


ES 


[YELLOW] 


Yellow 


CNTRI. 


S 


B 


[Fl] 


1 urn lion 1 




Fl 


■ 


[F2] 


Function 2 


SHIFT 


1-1 


a 


[F3] 


Function 3 




F3 


9 


[F4] 


Function 4 


SHIFT 


F3 


m 


[F5] 


Function 5 




F5 


m 


[F6] 


1 -'unci ion n 


SHIFT 


KS 


m 


[F7] 


1- miction 7 




F7 


m 


[F8] 


1- minion K 


SHIFT 


F7 


m 
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IM PORTA MTI Let,ers on white background are Bug Repellent line codes. Do not enter them! This and the preceding page explain these 
llVIr Un I Hll I ! codes and provide other essential information on entering Ahoyl programs. Read these pages before entering programs. 



BUG REPELLENT 

This program will let you debug any Ahoy! program. Follow in- 
structions tor VIC 20 (cassette or disk) or C-64. 

VIC 20 VERSION 
By Michael Kleinert and David Barron 

For cassette: type in and save the Bug Repellent program, then 
type RUN 6300QJRETURN]SYS 828[RETURN). If you (yped the 
program properly, it will generate a set of two-letter line codes that 
will match those listed to the right of the respective program lines. 

Once you've got a working Bug Repellent, type in the program 
you wish to check. Save ii and type the RUN and SYS commands 
listed above once again, then compare the line codes generated to 
those listed in the magazine. If you spot a discrepancy, a typing 
error exists in that line. Important: you must use exactly the same 
spacing as the program in the magazine. Due to memory limitations 
on the VIC. the VIC Bug Repellent will register an error if your 
spacing varies from what's printed. 

You may type SYS 828 as many times as you wish, but if you 
use the cassette, for anything, type RUN 63000 to restore the 
Repellent. 

When your program has been disinfected you may delete all lines 
from 63000 on. (Be sure the program you type doesn't include lines 
above 63000!) 

For disk: enter Bug Repellent, save it. and type RUN:NEW 
1RETURN]. Type in Ihc program you wish to check, then SYS 828. 

To pause the line codes listing, press SHIFT. 

To send the list to the printer type OPEN 4.4:CMD 4;SYS 
828| RETURN). When the cursor comes hack, type 
PRINT04:CLOSE 4[RETURN). 

• 63000 FORX=828TOI023 : READY : POKEX , Y : NEXT : END 
•63001 DATA169, 0,133, 63, 133, 64, 165, 43, 133, 251 



AC 
JL 



•63002 DATA165, 44, 133, 252,160,0, 132, 254, 32, 228 DF 
•63003 DATA3, 234, 177, 251, 208, 3, 76, 208, 3, 230 0E 
•63004 DATA251, 208, 2, 230, 252, 169, 244, 160, 3, 32 OH 
•63005 DATA30, 203, 160, 0,177, 251, 170, 230, 251, 20 

8 K0 

•63006 DATA2, 230, 252, 177, 251, 32, 205, 221, 169, 58 JJ 
•63007 DATA32, 210, 255, 169, 0,133, 253, 230, 254, 32 OK 
•63008 DATA228,3,234, 165,253, 160,0, 170, 177,251 LG 
•63009 DATA201, 32, 240, 6, 138, 113, 251, 69, 254, 170 BP 
•63010 DATA138, 133, 253, 177, 251, 208, 226, 165, 253 

,41 DD 

•63011 DATA240,74,74,74,74,24,105,65,32,210 EK 
•63012 DATA255, 165, 253, 41, 15, 24, 105, 65, 32, 210 F0 
•63013 DATA255, 169, 13, 32, 210, 255, 173, 141, 2, 41 PK 
•63014 DATA1, 208, 249, 230, 63, 208, 2, 230, 64, 230 CB 
•63015 DATA251, 208, 2, 230, 252, 76, 74,3, 169, 236 KH 
•63016 DATA160, 3, 32, 30, 203, 166, 63, 165,64,32 DP 
■63017 DATA205, 221, 169, 13, 32, 210, 255, 96, 230, 25 

1 EL 

•63018 DATA208, 2, 230, 252, 96, 0,76, 73, 78^,69 01 
•63019 DATA83, 58, 32, 0,76, 73, 78, 69, 32, 35 FG 
•63020 DATA32, 0,0, 0,0,0 LE 

C-64 VERSION 
By Michael Kleinert and David Barron 

Type m. SAVE, and RUN the Bug Repellent. Type NEW, then 
type in or LOAD the Altny! program you wish to check . When that's 
done. SAVE your program (don't RUN it!) and type SYS 49152 
IRETURN]. 

To pause the listing depress and hold the SHIFT key. 

Compare the codes your machine generates to the codes listed 
to the right of the respective program lines. If you spot a difference. 
an error exists in that line. Jot down the number of lines where 
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contradictions occur. LIST each line, spot the errors, and correct 
them. 

•5000 F0RX=49152T049488:READY:P0KEX,Y:NEXT:END GJ 

•5001 DATA32, 161, 192, 165, 43, 133, 251 ,165, 44, 133 DL 

•5002 DATA252, 160, 0,132, 254, 32, 37, 193, 234, 177 DB 

•5003 DATA251, 208, 3, 76, 138, 192, 230, 251, 208, 2 OF 

•5004 DATA230,252,76,43,192,76,73,78,69,32 KN 

•5005 DATA35, 32, 0,169, 35, 160, 192, 32, 30, 171 CA 

•5006 DATA160, 0,177, 251, 170, 230, 251, 208, 2, 230 CE 

•50O7 DATA252, 177, 251, 32, 205, 189, 169, 58, 32, 210 JE 

•5008 DATA255, 169, 0,133, 253, 230, 254, 32, 37, 193 CL 

•5009 DATA234, 165, 253,160, 0,76, 13, 193, 133, 253 NB 

•5010 DATA177, 251, 208, 237, 165, 253, 41, 240, 74, 74 MB 

•5011 DATA74, 74, 24, 105, 65, 32, 210, 255, 165, 253 EP 

•5012 DATA41, 15, 24, 105, 65, 32, 210, 255, 169, 13 GH 

•5013 DATA32, 220, 192, 230, 63, 208, 2, 230, 64, 230 AN 

•5014 DATA251, 208, 2, 230, 252, 76, 11, 192, 169, 153 NG 

•5015 DATA 160, 192, 32, 30, 171, 166, 63, 165, 64, 76 BF 

•5016 DATA231,r92,96,76,73,78,69,83,58,32 EP 

•5017 DATA0, 169, 247, 160, 192,32,30,171,169,3 PJ 

•5018 DATA133, 254, 32, 228, 255, 201, 83, 240, 6, 201 FK 

•5019 DATA80, 208, 245,230, 254, 32, 210, 255, 169, 4 FL 

•5020 DATA166, 254, 160, 255, 32, 186, 255, 169, 0,133 CL 

•5021 DATA63, 133, 64, 133,2,32,189,255,32,192 GC 

•5022 DATA255, 166,254,32, 201,255,76,73, 193,96 NN 

•5023 DATA32, 210, 255, 173, 141, 2, 41, 1,208, 249 NH 

•5024 DATA96, 32, 205, 189,169,13,32,210,255,32 IM 

•5025 DATA204.255, 169,4,76, 195,255,147,83,67 KC 

•5026 DATA82, 69, 69, 78, 32, 79, 82, 32, 80, 82 DC 

•5027 DATA73, 78, 84, 69, 82, 32, 63, 32, 0,76 ML 

•5028 DATA44, 193, 234, 177, 251, 201, 32, 240, 6, 138 GN 

■5029 DATA113, 251, 69, 254, 170, 138, 76, 88, 192,0 JK 

•5030 DATA0, 0,0, 230, 25 1,208, 2, 230, 252, 96 NA 

•5031 DATA170, 177, 251, 201 ,34,208,6,165,2,73 DM 

•5032 DATA255, 133, 2, 165, 2, 208, 218, 177, 25 1,201 J A 

•5033 DATA32, 208, 212, 198, 254, 76, 29, 193, 0,1 69 FM 

•5034 DATA13, 76, 210, 255, 0,0,0 PA 



FOR THE C-64 



By Gordon F. Wheat 

Fltmkspeed will allow you to enter machine language Alien! pro- 
grams u itliout any mistakes. Once you have i\ ped the program in. 
save it for future use. While entering an Ml. program with 
Fitmkspeed there is no need to enter spaces or hit the carriage return. 
This is all done automatically . If you make an error in a line a bell 
will ring and you will be asked to enter it again. To LOAD in a 
program Saved with Fldnkspeed use LOAD "name". 1.1 for tape. 
or LOAD "name',8,1 for disk. The function keys may be used alter 
the starting and ending addresses have been entered. 
II SAVT.s what you have entered so far. 
O— LOADs in a program worked on previously, 
t'5-To continue on a line you stopped on after LOADing in the 
previously saved work. 

17 -Scans through the program to locate a particular line, or to find 
out where you stopped the last tunc you entered the program. 17 
temporarily freezes the nutpui as well, 

•5 P0KE53280,12:P0KE53281,11 ■ 

•6 PRlNT"[CLEAR][c 8][RVS0N][ 15" "]FLANKSPEED[ 

1CM til 11, 

•10 PRINT"[RVS0N][5" ")MISTAKEPR00F ML ENTRY P 
R0GRAMf6" "]" 
•15 PRINT"[RVS0N][9" 

•20 PRINT"[RVS0N][3" 



LL 



ED 



MC 



"]CREATED BY G. F. WHEAT[ 
"]C0PR. 1984, ION INTERNA 



DM 



TIONAL INC. [3" "]" DH 

30 FORA=54272T054296:POKEA,0:NEXT IM 

40 POKE54272,4:POKE54273,48:POKE54277,0:POKE5 
4278,249:P0KE54296,15 NH 

70 FOR A=680T0699:READB:POKEA,B: NEXT KO 

75 DATA169, 251, 166, 253, 164,254, 32, 216, 255, 96 HJ 

76 DATA169, 0,166,251,164,252,32,213,255,96 JB 
80 BS="STARTING ADDRESS IN HEX":GOSUB2010: AD= 
B:SR=B HC 

85 GOSUB2520:IFB=OTHEN80 FO 

86 POKE251,T(4)+T(3)*16:POKE252,T(2)+T(l)*16 KE 
90 B$="ENDING ADDRESS IN HEX":G0SUB2010:EN=B IF 

95 GOSUB2510:IFB=0THEN80 FP 

96 P0KE254,T(2)+T(1)*16:B=T(4)+1+T(3)*16 MN 

97 IFB>255THENB=B-255:POKE254,PEEK(254)+l GE 

98 POKE253.B: PRINT HN 
100 REM GET HEX LINE IL 
110 GOSUB3010: PRINT": [c P] [LEFT]"; :F0RA=0T08 FG 
120 F0RB=0T01:G0T0210 MD 
125 NEXTB ME 
130 A2(A)=T(1)+T(0)*16:IFAD+A-1=ENTHEN310 LH 
135 PRINT" [c P][LEFT.]"; IK 
140 NEXTA:T=AD-(INT(AD/256)*256):PRINT" " PD 
150 FORA=0TO7:T=T+A%(A):IFT>255THENT=T-255 LK 
160 NEXT IA 
170 IFA%(8)OTTHENG0SUB1010:G0T0110 FK 
180 F0RA=0TO7:POKEAD+A,A%(A):NEXT:AD=AD+8:GOT 
0110 MN 
200 REM GET HEX INPUT AB 

210 GETA$:IFA$=""THEN210 HO 

211 IFA$=CHR$(20)THEN270 GC 

212 IFAS=CHR$(133)THEN4000 • MD 

213 IFA$=CHR$(134)THEN4100 KF 

214 IFA$=CHR$(135)THENPRINT" ":G0T04500 GE 

215 IFA$=CHR$(136)THENPRINT" ":GOT04700 BJ 
220 IFA$>"@"ANDA$<"G"THENT(B)=ASC{A$)-55:GOTO 
250 GM 
230 IFA$>"/"ANDA$<":"THENT(B)=ASC(A$)-48:G0T0 
250 LE 
240 G0SUB1100:G0T0210 LL 
250 PRINTAS"[c P][LEFT]"; OA 
260 GOTO! 25 CG 
270 IFA>OTHEN280 OP 
272 A=-1:IFB=1THEN290 OB 
274 GOTO 140 CJ 
280 IFB=OTHENPRINTCHR$(20);CHR$(20);:A=A-1 HG 
285 A=A-1 BE 
290 PRINTCHR$(20);:G0T0140 KH 
300 REM LAST LINE AD 
310 PRINT" ":T=AD-(INT(AD/256)*256) GJ 
320 FORB=OTOA-l:T=T+A%(B):IFT>255THENT=T-255 PL 
330 NEXT IA 
340 IFA%(A)OTTHENG0SUB1010:G0T0110 KF 
350 F0RB=0T0A-1:P0KEAD+B,A%(B):NEXT HN 
360 PRINT -.PRINT" YOU ARE FINISHED! ":G0T04000 ON 
1000 REM BELL AND ERROR MESSAGES FL 
1010 PRINT : PRINTLINE ENTERED INCORRECTLY": PR 
INT: GOTO 1100 DH 
1020 PRINT: PRINT"INPUT A 4 DIGIT HEX VALUE!": 
GOTO 1100 J A 
1030 PRINT :PRINT"ENDING IS LESS THAN STARTING 
!":B=0:G0T01100 HD 
1040 PRINT: PRINT"ADDRESS NOT WITHIN SPECIFIED 

RANGE! ":B=0:G0T01 100 AG 

1050 PRINT :PRINT"N0T ZERO PAGE OR R0M!":B=0:G 
0T01100 KN 



1060 PRINT"?ERROR IN SAVE" :G0T01 100 EI 

1070 PRINT"?ERROR IN LOAD" :G0T01 100 GL 
1080 PRINT: PRINT :PRINT"END OF ML AREA": PRINT PG 
1100 P0KE54276,17:P0KE54276,16:RETURN BH 
1200 0PEN15,8,15:INPUT#15,A,A$:CL0SE15:PRINTA 
$: RETURN IM 

2000 REM GET FOUR DIGIT HEX PC 

2010 PRINT :PRINTBS;:INPUTr$ CM 

2020 IFLEN(T$)O4THENG0SUB1020:G0T02010 II 
2040 F0RA=1T04 : A$=MID$(TS , A, 1 ) :G0SUB2060:IFT( 
A)=16THENGOSUB1020:GOT02010 AD 

2050 NEXT:B=(T(1)*4096)+(T(2)*256)+(T(3)*16)+ 
T(4):RETURN GF 

2060 IFA$>"@"ANDA$<"G"THENT(A)=ASC(A$)-55:RET 
URN EH 

2070 IFA$>"/"ANDA$<":"THENT(A)=ASC(A$)-48:RET 
URN KP 

2080 T(A)=16:RETURN NP 

2500 REM ADRESS CHECK LI 

2510 IFAD>ENTHEN1030 MI 

2515 IFB<SR0RB>ENTHEN1040 MG 

2520 IFB<2560R(B>40960ANDB<49152)0RB>53247THE 
N1050 MI 

2530 RETURN IM 

3000 REM ADDRESS TO HEX EB 

3010 AC=AD:A=4096:GOSUB3070 HG 

3020 A=256:GOSUB3070 CE 

3030 A=16:GOSUB3070 PN 

3040 A=l:GOSUB3070 MJ 

3060 RETURN ' IM 

3070 T=INT(AC/A):IFT>9THENA$=CHR$(T+55):G0T03 
090 CJ 

3080 A$=CHR$(T+48) JP 

3090 PRINTA$;:AC=AC-A*T: RETURN AC 

4000 A$="**SAVE**":GOSUB4200 AI 

4050 0PEN1,T,1,A$:SYS680:CL0SE1 LH 

4060 IFST=OTHENEND EO 

4070 G0SUB1060:IFT=8THENG0SUB1200 FJ 

4080 G0T04000 FF. 

4100 A$="**L0AD**":GOSUB4200 AB 

4150 0PEN1,T,0,A$:SYS690:CL0SE1 MF 

4160 IFST=64THEN110 JH 

4170 GOSUB107O:IFT=8THENG0SUB1200 CM 

4180 GOT04100 FO 

4200 PRINT" ":PRINTTAB(14)A$ FG 

4210 PRINT:A$="":INPUT"FILENAME";A$ OM 
4215 IFA$=""THEN4210 GF 

4220 PRINT :PRINT"TAPE OR DISK?": PRINT DF 
4230 GETB$ :T=1 : IFB$="D"THENT=8 : AS="@0: "+A$ : RE 
TURN IG 

4240 IFB$O"T"THEN4230 FN 

4250 RETURN IM 

4500 B$="CONTINUE FROM ADDRESS" : GOSUB2010 : AD= 
B DK 

4510 GOSUB2515:IFB=OTHEN4500 MA 

4520 PRINT :G0T01 10 01 

4700 B$="BEGIN SCAN AT ADDRESS" :G0SUB2010:AD= 
B FH 

4705 G0SUB2515:IFB=0THEN4700 NK 

4706 PRINT :GOT04740 DI 
4710 FORB=0TO7:AC=PEEK(AD+B):G0SUB3030:IFAD+B 
=ENTHENAD=SR : GOSUB1080 : GOT01 10 BK 



4715 PRINT" 



:NEXTB 



4720 PRINT: AD=AD+8 

4730 GETB$ : IFB$=CHR$( 136)THEN1 10 

4740 GOSUB3010: PRINT": ";:GOT04710 



EC 
GN 
MN 
JD 
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IMPORTANT! L9,,ers on wn| te background are Bug Repellent 
llVlrUnirili I ! and provide other essential information on enterin 

The Ultimate 
Resolution 

FROM PAGE 37 



REM 

REM 
REM 
REM 
REM 



RUPERT REPORT #18 

LISTING 

BIT MAP GRAPHICS 



10 DEF FNSB(N)=PEEK'(MM) OR 2[UPARR0W]N 

20 DEF FNRB(N)=PEEK(MM) AND (255-2[UPARR 

0W]N) 

30 VV=53248 :REM VIC-II REGISTER 

35 :REM »> PUT BIT MAP AT 8192 <« 

(SET BIT 3 OF VIC REGISTER 24) 
40 MM=VV+24 : POKE MM,FNSB(3) 
45 :REM >» SELECT BIT MAP MODE <« 

(SET BIT 5 OF VIC REGISTER 17) 
50 MM=VV+17 : POKE MM,FNSB(5) 
60 BASE=8192 :REM START BIT MAP MEMORY 
65 :REM >» CLEAR BIT MAP <« 
70 FOR MM=BASE TO BASE+7999 
80 POKE MM,0 : NEXT MM 
85 :REM >» SELECT COLORS CI AND CO «< 
90 Cl=l : C0=0 : CC=16*C1 + CO 
95 :REM »FILL SCREEN MEMORY WITH COLOR 
100 FOR MM=1024 TO 2023: POKE MM, CC: NEXT 

194 : 

195 ::REM:: MAIN PROGRAM :: 

196 : 

200 FOR N=l TO 1000 

210 X=RND(0)*320 : Y=RND(0)*200 

220 GOSUB 400 : NEXT 

250 FOR P=l TO 3000 : NEXT 

294 

296 

300 :REM »> RESET BIT MAP MODE <« 

310 MM=VV+17 : POKE MM,FNRB(5) 

320 :REM >» RESTORE SCREEN MEMORY BASE 

330 MM=VV+24 : POKE MM,FNRB(3) 

390 END 

395 :REM >» TURN ON PIXEL AT (X,Y) 

400 BIT=7-(X AND 7) 

410 MM=BASE+320*INT(Y/8)+8*INT(X/8)+(Y / 

ND 7) 

420 POKE MM.FNSB(BIT) 

430 RETURN 



JD 
PA 
LI 
KG 
JD 
LG 

FP 
FL 

JA 
00 

DH 
JM 
KD 
HG 
FN 
OP 
LC 
OM 
AI 
OM 
DI 
AE 
DI 
CJ 
PO 
NN 
NE 
DI 
DI 
HJ 
JN 
GC 
MP 
IC 
OB 
PJ 

AP 
MO 

IM 



FROM PAGE 18 THREE-VOICE PLAYER 

•1 REM "THREE VOICE PLAYER" MM 

•2 REM PLAY 1, 2, OR 3 VOICES WITH THIS R 



line codes. Do not enter them! Pages 85 and 86 explain these codes 
g Ahoy! programs. Refer to these pages before entering any programs! 

OUTINE OP 

3 REM ADD IT TO YOUR PROGRAMS: ADJUST TH 
E DURATIONS AT 9200-9210 AS NEEDED MJ 

4 REM JD 

5 REM PLAYS "GOD SAVE THE KING" ("MY COU 
NTRY, 'TIS OF THEE") CL 

6 REM JD 
10 GOSUB 9000: GOTO 120 LE 

60 FOR N=l TO LEN(MD$(PH)) FJ 

61 FOR VC=0 TO EV% GG 

62 POKE GR(VC),UG%(VC):REM NORMAL NOTES; 
DON'T POKE UG% FOR LEGATO AE 

63 FOR 1=0 TO 1 JB 

64 POKE FR(VC,I),PI%(ASC(MID$(MES(PH,VC) 
,N,1)),I) BD 

65 NEXT: NEXT EF 

66 FOR VC=EV% TO STEP -1:P0KE GR(VC),G 
%(VC):NEXT MB 

67 FOR 1=0 TO DU%(VAL(MID$(MD$(PH),N,1)) 
):NEXT JB 

68 REM FOR VC=0 TO EV%:P0KE GR(VC),UG%(V 
C): NEXT: REM STACCATO NOTES BO 

69 NEXT:PH=PH+1:IF PH>ES% THEN PH=0 I J 

70 FOR VC=0 TO EV%:POKE GR(VC) ,UG%(VC) :N 
EXT: RETURN EP 
100 GOSUB 60 PC 
110 IF PEEK(653)>0 THEN END FF 
120 PRINT "PHRASE "PH FC 
190 GOTO 100 CF 

8997 REM JD 

8998 REM SET UP SOUND SHAPE FD 

8999 REM JD 

9000 DIM MD$(23),ME$(23,2),MV$(23,2),G%( 
2),GR(2),FR(2,1),AD(2) CF 

9001 DIM DU%(9),PI%(168,1),AK%(2),DY%(2) 
,SN%(2),RE%(2),WF%(2) OF 

9007 REM JD 

9008 REM ATTACK— VOICES 0,1,2 KG 

9009 REM NUMBER FROM TO 15; LOWER NUMB 
ER=SHARPER ATTACK OK 

9010 AK%(0)=2:AK%(1)=2:AK%(2)=2 AN 
9015 FOR 1=0 TO 2:AK%(I)=AK%(I)*16:NEXT FF 

9017 REM JD 

9018 REM DECAY— VOICES 0,1,2 PK 

9019 REM NUMBER FROM TO 15; LOWER NUMB 
ER=FASTER DECLINE GA 

9020 DY%(0)=4:DY%(1)=6:DY%(2)=6 NC 

9027 REM JD 

9028 REM SUSTAIN— VOICES 0,1,2 FC 

9029 REM NUMBER FROM TO 15; LOWER NUMB 
ER=SOFTER VOLUME DURING SUSTAIN JM 

9030 SN%(0)=12:SN%(1)=8:SN%(2)=9 FB 
9035 FOR 1=0 TO 2:SN7o(I)=SN%(I)*16:NEXT BD 

9037 REM JD 

9038 REM RELEASE— VOICES 0,1,2 OK 

9039 REM NUMBER FROM TO 15; LOWER NUMB 
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ER=FASTER DROP TO SILENCE AT END 
9040 RE%(0)=0:RE%(1)=3:RE%(2)=5 

9047 REM 

9048 REM SET SOUND ADDRESSES 

9049 REM 



PJ 
BG 
JD 
JC 

JD 



9050 FR(0,0)=54272:FR(1,0)=54279:FR(2,0) 
=54286 PG 

9055 FOR 1=0 TO 2:FR(I,1)=1+FR(I,0):GR(I 
)=FR(I,0)+4:AD(I)=GR(I)+1:NEXT HJ 

9057 REM JD 

9058 REM POKE ADSR ENVELOPES JL 

9059 REM JD 

9060 FOR 1=0 TO 2: POKE AD(I),AT%(I) OR D 
Y%(I) EN 

9065 POKE AD(I)+1,SN%(I) OR RE%(I):NEXT DK 

9066 REM JD 

9067 REM SET UP GATES JN 

9068 REM WAVEFORMS, VOICES 0,1,2 (ADD VA 
LUES): DJ 

9069 REM TRIANGLE 0N=16; SAWTOOTH 0N=32; 
PULSE 0N=64 (SET WIDTH!); NOISE ON=128 IL 

9070 WF%(0)=64:WF%(1)=64:WF%(2)=32 HP 
9075 FOR 1=0 TO 2:G%(I)=1 OR WF%(I):UG%( 
I)=G%(I)AND 254: NEXT AB 

9077 REM JD 

9078 REM SET PULSE WIDTHS AC 

9079 REM VOICES 0,1,2; LOW BYTE, HIGH BY 
TE MG 

9080 POKE GR(0)-2,200:P0KE GR(0)-1,3 JD 

9081 POKE GR(1)-2,200:P0KE GR(1)-1,3 LD 

9082 POKE GR( 2) -2, 200: POKE GR(2)-1,3 EP 

9096 REM JD 

9097 REM SET UP PITCH ARRAY DK 

9098 REM EACH NOTE, IN ALL ITS OCTAVES JB 

9099 REM C NE 

9100 X%=3:G0SUB 9190 BK 

9101 DATA 12,1,24,2,48,4,97,8,195,16,135 
,33,15,67,30,134 IF 

9102 REM D NH 

9103 X%=4:G0SUB 9190 PH 

9104 DATA 45,1,90,2,180,4,104,9,209,18,1 
62,37,69,75,139,150 PA 

9105 REM E (F-FLAT) MH 

9106 X%=5:G0SUB 9190:Y%=13:G0SUB 9195 DN 

9107 DATA 81,1,163,2,71,5,143,10,31,21,6 
2,42,125,84,250,168 HM 

9108 REM F (E-SHARP) DB 

9109 X%=6:G0SUB 9190:Y%=19:G0SUB 9195 GE 

9110 DATA 102,1,204,2,152,5,48,11,96,22, 
193,44,131,89,6,179 IL 

9111 REM G NI 

9112 X%=7:G0SUB 9190 AO 

9113 DATA 145,1,35,3,71,6,143,12,30,25,6 
0,50,121,100,243,200 GM 

9114 REM A NC 

9115 X%=1:G0SUB 9190 PA 

9116 DATA 195,1,134,3,12,7,24,14,49,28,9 
9,56,199,112,143,225 PI 



9117 REM B NF 

9118 X%=2:G0SUB 9190 PF 

9119 DATA 250,1,244,3,233,7,210,15,165,3 
1,75,63,151,126,46,253 CF 

9120 REM D-FLAT (C-SHARP) JL 

9121 X%=11:G0SUB 9190:Y%=17:G0SUB 9195 NN 

9122 DATA 28,1,56,2,112,4,225,8,195,17,1 
34,35,12,71,24,142 KJ 

9123 REM E-FLAT (D-SHARP) FD 

9124 X%=12:G0SUB 9190: Y%=18:G0SUB 9195 LD 

9125 DATA 62,1,125,2,251,4,247,9,239,19, 
223,39,191,79,126,159 FB 

9126 REM G-FLAT (F-SHARP) HH 

9127 X%=14:G0SUB 9190: Y%=20:G0SUB 9195 HK 

9128 DATA 123,1,246,2,237,5,218,11,181,2 
3,107,47,214,94,172,189 HG 

9129 REM A-FLAT (G-SHARP) HE 

9130 X%=8:G0SUB 9190:Y%=21:G0SUB 9195 GN 

9131 DATA 169,1,83,3,167,6,78,13,156,26, 
57,53,115,106,230,212 PA 

9132 REM B-FLAT (A-SHARP) FP 

9133 X5S=9:G0SUB 9190: Y%=15:G0SUB 9195 DD 

9134 DATA 221,1,187,3,119,7,239,14,223,2 
9,190,59,124,119,248,238 CN 

9135 REM C-FLAT CH 

9136 X%=10:G0SUB 9190 DL 

9137 DATA 4,1,250,1,244,3,233,7,210,15,1 
65,31,75,63,151,126 AK 

9138 REM B-SHARP IN 

9139 X%=16:G0SUB 9190 CJ 

9140 DATA 24,2,48,4,97,8,195,16,135,33,1 
5,67,30,134,255,255 NM 
9185 GOTO 9200 FM 

9189 REM READ PITCHES NA 

9190 FOR 1=0 TO 147 STEP 21:READ PI%(I+X 
%,0),PIZ(I+X%,1):NEXT: RETURN FN 

9194 REM IDENTICAL PITCHES GA 

9195 FOR 1=0 TO 147 STEP 21:PI%(I+Y%,0)= 
PI%(I+X%,0):PI%(I+Y%,1)=PI%(I+X%,1) LN 

9196 NEXT: RETURN EJ 

9197 REM JD 

9198 REM SET UP DURATIONS ME 

9199 REM JD 

9200 FOR 1=0 TO 9: READ DU%(I):NEXT MB 
9205 DATA 0,128,256,384,512,640,768,1024 
,1152,1280 CA 

-9296 REM JD 

•9297 REM SET FILTER AND VOLUME BN 
•9298 REM FILTER FREQUENCY DE 

•9299 REM LOW BYTE (0-7) X%; HIGH BYTE (0 

-255) Y% PA 

•9300 X%=0:Y%=100 GD 

•9305 POKE 54293, X%: POKE 54294, Y% KJ 
•9308 REM FILTER ON? DD 

•9309 REM VOICE 1 0N=1; 2 0N=2; 3 0N=4; 1 

&2 0N=3; 2&3 0N=6; ALL 0N=7 AL 

•9310 X%=0 FM 

•9318 REM FILTER RESONANCE CE 
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9319 REM PEAK VOLUME (O-LOW, 15=HIGH) FH 

9320 Y%=14 JL 
9325 Y%=Y%*16:P0KE 54295, X% OR Y% MG 

9328 REM SELECT FILTER TYPE CP 

9329 REM L0W-PASS=1 ;BAND-PASS=2; HIGH-PAS 
S=4;L0-BAND=3;HI-BAND=6;ALL=7 MH 

9330 X%=1 FP 
9335 X%=X%*16 LC 

9337 REM JD 

9338 REM SELECT OVERALL VOLUME FJ 

9339 REM 15=HIGH, 0=LOW PB 

9340 Y%=15 JK 
9345 POKE 54296 ,X% OR Y% HN 

9496 REM JD 

9497 REM SET MELODIES HERE PA 

9498 REM JD 

9499 REM HOW MANY VOICES? (MINUS ONE) GN 

9500 EV%=2 KA 

9508 REM JD 

9509 REM HOW MANY PHRASES? (MINUS ONE) MA 

9510 ES%=1 JO 

9514 REM JD 

9515 REM MELODY STRINGS JJ 

9516 REM JD 

9517 REM EACH PHRASE HAS ONLY ONE DU%(PH 

) STRING, NO MATTER HOW MANY VOICES AO 

9518 REM EACH PHRASE HAS ONE ME$(PH,VC) 

& ONE MV$(PH,VC) STRING PER VOICE IP 

9519 REM PHRASE IP 

9520 MD$(0)="[3"2"]40[4"2 M ]40[4"2"]8" GK 

9521 ME$(0,0)="FFGEFGAA[c B]AGFGFEF" JC 

9522 MV$(0,0)="5[15" "]" KL 

9523 ME$(0,1)="CCDCDECFGFEADAGC" KI 

9524 MV$(0,1)="5[12" "]4 5" PB 

9525 ME$(0,2)="FA[c B][3"C"]FD[c B]CCD[c 
B]CCA" DG 

952b MV$(0,2)="3 234 34 343 " HP 

9529 REM PHRASE 1 10 

9530 MD$(1)="[3"2"]40[4"2"]4022[4"0"]402 
00228" BD 

9531 ME$(l,0)="[4"C"][c BjA[4"[c B]"]AGA 

[c E AGFA[c B]CD[c B]AGF" JD 

9532 MV$(1, j)="6[3" "]5[14" "]6 5[3" "]" LP 

9533 ME$( 1 , 1 )=" [ 4"A" ]GF[ 4"G" ] FEFF@F@FEFF 
GFEA" IK 

9534 MV$(1,1)="43 4[3" "]3 4[3" "]3[3" " 
]4[6" "]3" EO 

9535 ME$(l,2)= ,, FAC[3"F"]CEGCBCFDC[c B]AC 
GA[c B]DCCF" HN 

9536 MV$(1,2)="2 32[6" "]1234 3 2 3 21 

" CL 

9897 REM JD 

9898 REM CONVERT STRINGS TO USABLE FORM IG 

9899 REM JD 

9900 FOR PH-0 TO ES%:FOR VC-0 TO EV% AH 
9905 A$=ME$(PH,VC)ME$(PH,VC)="" EC 
9910 FOR 1=1 TO LEN(A$) OE 
9920 X%=ASC(MID$(A$,I,1)) IP 
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•9930 IF X%<72 THEN X%=X%-64:IF X%<0 THEN 

X%=0 ED 

•9931 IF X%>192AND X%<200 THEN X%=X%-178 GP 

•9932 IF X%=176 THEN X%=8 IF 

•9933 IF X%=191 THEN X%=9 FN 

•9934 IF X%=188 THEN X%=10 II 

•9935 IF X%=172 THEN X%=11 IM 

•9936 IF X%=177 THEN X%=12 LA 

•9937 IF X%=187 THEN X%=13 IE 

•9938 IF X%=165 THEN X%=14 HL 

•9939 IF X%>21 THEN X%=0 DL 
•9950 V$=MID$(MV$(PH,VC),I,1):IF V$<>" " 

THEN Y%=21*VAL(V$) PG 

•9960 X%=X%+Y% MJ 

•9970 ME$(PH,VC)=ME$(PH,VC)+CHR$(X%) OC 

•9975 NEXT: NEXT: NEXT PI 

•9980 PH=0 HP 

•9990 RETURN IM 

ONE-VOICE PLAYER 

1 REM ONE VOICE PLAYER (FAST) EH 

2 REM PLAYS "MEXICAN HAT DANCE" NB 

3 REM JD 
10 GOSUB 9000: GOTO 120 LE 

60 FOR N=l TO LEN(MD$(PH)) FJ 

61 D%=VAL(MID$(MD$(PH),N,1)) LE 

64 POKE GR,UG%:REM NORMAL NOTES; DELETE 
POKES FOR LEGATO IF 

65 FOR 1=0 TO 1:P0KE FR(I),PI%(ASC(MID$( 
ME$(PH),N,1)),I):NEXT JN 

66 POKE GR,G% NA 

67 FOR 1=0 TO DU%(VAL(MID$(MD$(PH),N,1)) 

) :NEXT JB 

68 REM POKE GR,UG%:REM STACCATO NOTES EE 

69 NEXT:PH=PH+1:IF PH>ES% THEN PH=0 IJ 

70 POKE GR.UG: RETURN NF 
100 GOSUB 60 PC 
110 IF PEEK(653)>0 THEN END FF 
120 PRINT "PHRASE "PH FC 
190 GOTO 100 CF 

8997 REM JD 

8998 REM SET UP SOUND SHAPE FD 

8999 REM JD 

9000 DIM MV$(23),MD$(23),ME$(23),FR(1) JI 

9001 DIM DU%(9),PI%(168,1) PB 

9007 REM JD 

9008 REM ATTACK FE 

9009 REM NUMBER FROM TO 15; LOWER NUMB 
ER=SHARPER ATTACK OK 

9010 AK%=0 JL 
9015 AK%=AK%*16 DL 

9017 REM JD 

9018 REM DECAY PJ 

9019 REM NUMBER FROM TO 15; LOWER NUMB 
ER=FASTER DECLINE GA 

9020 DY%=5 KF 

9027 REM JD 

9028 REM SUSTAIN NH 



•9029 REM NUMBER FROM TO 15; LOWER NUMB 

ER=SOFTER VOLUME DURING SUSTAIN JM 

9030 SN%»1 LL 

9035 SN%=SN%*16 HB 

9037 REM JD 

9038 REM RELEASE IP 

9039 REM NUMBER FROM TO 15; LOWER NUMB 
ER=FASTER DROP TO SILENCE AT END PJ 

9040 RE%=0 KA 

9047 REM JD 

9048 REM SET SOUND ADDRESSES JC 

9049 REM JD 

9050 FR(0)=54272 OK 
9055 FR(1)=1+FR(0):GR=FR(0)+4:AD=GR+1 CI 

9057 REM JD 

9058 REM POKE ADSR ENVELOPE FE 

9059 REM JD 

9060 POKE AD,AT% OR DY% KD 

9065 POKE AD+1,SN% OR RE% GJ 

9066 REM JD 

9067 REM SET UP GATE EN 

9068 REM WAVEFORMS (ADD VALUES): GB 

9069 REM TRIANGLE 0N=16; SAWTOOTH 0N=32; 
PULSE 0N=64 (SET WIDTH!); NOISE 0N=128 IL 

9070 WF%=32 NP 
9075 G%=1 OR WF%:UG%=G% AND 254 EJ 

9077 REM JD 

9078 REM SET PULSE WIDTH MG 

9079 REM LOW BYTE, HIGH BYTE FB 

9080 POKE GR-2,200:POKE GR-1,3 HO 

9096 REM JD 

9097 REM SET UP PITCH ARRAY DK 

9098 REM EACH NOTE, IN ALL ITS OCTAVES JB 

9099 REM C NE 

9100 X%=3:G0SUB 9190 BK 

9101 DATA 12,1,24,2,48,4,97,8,195,16,135 
,33,15,67,30,134 IF 

9102 REM D NH 

9103 X%=4:G0SUB 9190 PH 

9104 DATA 45,1,90,2,180,4,104,9,209,18,1 
62,37,69,75,139,150 PA 

9105 REM E (F-FLAT) MH 

9106 X%=5:G0SUB 9190:Y%=13:G0SUB 9195 DN 

9107 DATA 81,1,163,2,71,5,143,10,31,21,6 
2,42,125,84,250,168 HM 

9108 REM F (E-SHARP) DB 

9109 X%=6:G0SUB 9190:Y%=19:G0SUB 9195 GE 

9110 DATA 102,1,204,2,152,5,48,11,96,22, 
193,44,131,89,6,179 IL 

9111 REM G NI 

9112 X%=7:G0SUB 9190 AO 

9113 DATA 145,1,35,3,71,6,143,12,30,25,6 
0,50,121,100,243,200 GM 

9114 REM A NC 

9115 X%=1:G0SUB 9190 PA 

9116 DATA 195,1,134,3,12,7,24,14,49,28,9 
9,56,199,112,143,225 PI 

9117 REM B NF 



9118 X%=2:G0SUB 9190 PF 

9119 DATA 250,1,244,3,233,7,210,15,165,3 
1,75,63,151,126,46,253 CF 

9120 REM D-FLAT (C-SHARP) JL 

9121 X%=11:G0SUB 9190:Y%=17:G0SUB 9195 NN 

9122 DATA 28,1,56,2,112,4,225,8,195,17,1 
34,35,12,71,24,142 KJ 

9123 REM E-FLAT (D-SHARP) FD 

9124 X%=12:G0SUB 9190:Y%=18:G0SUB 9195 LD 

9125 DATA 62,1,125,2,251,4,247,9,239,19, 
223,39,191,79,126,159 FB 

9126 REM G-FLAT (F-SHARP) HH 

9127 X%=14:G0SUB 9190:Y%=20:G0SUB 9195 HK 

9128 DATA 123,1,246,2,237,5,218,11,181,2 
3,107,47,214,94,172,189 HG 

9129 REM A-FLAT (G-SHARP) HE 

9130 X%=8:G0SUB 9190:Y%=21:G0SUB 9195 GN 

9131 DATA 169,1,83,3,167,6,78,13,156,26, 
57,53,115,106,230,212 PA 

9132 REM B-FLAT (A-SHARP) FP 

9133 X%=9:G0SUB 9190:Y%=15:GOSUB 9195 DD 

9134 DATA 221,1,187,3,119,7,239,14,21 ,,2 
9,190,59,124,119,248,238 CN 

9135 REM C-FLAT CH 

9136 X%=10:G0SUB 9190 DL 

9137 DATA 4,1,250,1,244,3,233,7,210,15,1 
65,31,75,63,151,126 AK 

9138 REM B-SHARP IN 

9139 X%=16:G0SUB 9190 CJ 

9140 DATA 24,2,48,4,97,8,195,16,135,33,1 
5,67,30,134,255,255 NM 
9150 FOR 1=0 TO 147 STEP 21:PI%(I,0)=0:P 
I%(I,1)=0:NEXT CM 
9185 GOTO 9200 FM 

9189 REM READ PITCHES NA 

9190 FOR 1=0 TO 147 STEP 21:READ PI%(I+X 
%,0),PI%(I+X%,1):NEXT:RETURN FN 

9194 REM IDENTICAL PITCHES GA 

9195 FOR 1=0 TO 147 STEP 21:PI%(I+Y%,0)= 
PI%(I+X%,0):PI%(I+Y%,1)=PI%(I+X%,1) LN 

9196 NEXT: RETURN EJ 

9197 REM JD 

9198 REM SET UP DURATIONS ME 

9199 REM JD 

9200 FOR 1=0 TO 9: READ DU%(I):NEXT MB 
9205 DATA 16,32,48,64,96,128,160,192,256 
,320 PD 

9296 REM JD 

9297 REM SET FILTER AND VOLUME BN 

9298 REM FILTER FREQUENCY DE 

9299 REM LOW BYTE (0-7) X%; HIGH BYTE (0 
-255) Y% PA 

9300 X%=0:Y%=100 GD 
9305 POKE 54293, X%: POKE 54294, Y% KJ 

9308 REM FILTER ON? DD 

9309 REM VOICE 1 0N=1 FK 

9310 XJE-0 FM 
9318 REM FILTER RESONANCE CE 
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•9319 REM PEAK VOLUME (0=LOW, 15=HIGH) 


FH 


•9920 X%=ASC(MID$(A$,I,1)) 


IP 


•9320 Y%=14 


JL 


•9930 IF X%<72 THEN X%=X%-64:IF X%<0 THEN 


•9325 Y%=Y%*16:P0KE 54295 t X% OR Y% 


MG 


X%=0 


ED 


•9328 REM SELECT FILTER TYPE 


CP 


•9931 IF X%>192AND X%<200 THEN X%=X%-178 


GP 


•9329 REM L0W-PASS=1;BAND-PASS=2; HIGH-PAS 




•9932 IF X%=176 THEN X%=8 


IF 


S=4 ; L0-BAND=3 ; HI-BAND=6 ; ALL=7 


MH 


•9933 IF X%=191 THEN X%=9 


FN 


•9330 X%=1 


FP 


•9934 IF X%=188 THEN X%=10 


II 


•9335 X%=X%*16 


LC 


•9935 IF X%=172 THEN X%=11 


IM 


•9337 REM 


JD 


•9936 IF X%=177 THEN X%=12 


LA 


•9338 REM SELECT OVERALL VOLUME 


FJ 


•9937 IF X5£=187 THEN X%=13 


IE 


•9339 REM 15=HIGH, 0=LQW 


PB 


•9938 IF X%=165 THEN X%=14 


HL 


•9340 Y%=15 


JK 


•9939 IF X%>21 THEN X%=0 


DL 


•9345 POKE 54296, X% OR Y% 


HN 


•9940 V$=MID$(MV$(PH),I,1):IF V$<>" " THE 




•9496 REM 


JD 


N Y%=21*VAL(V$) 


U 


•9497 REM SET MELODY 


EJ 


•9950 X%=X%+Y% 


MJ 


•9498 REM 


JD 


•9970 ME$(PH)=ME$(PH)+CHR$(X%) 


CP 


•9509 REM HOW MANY PHRASES? (MINUS ONE) 


MA 


•9975 NEXT: NEXT 


EF 


•9510 ES%=5 


KC 


•9980 PH=0 


HP 


•9514 REM 


JD 


•9990 RETURN 


IM 


•9515 REM MELODY STRINGS 


JJ 




•9516 REM 


JD 


BROKEN MELODY 


•9517 REM EACH PHRASE HAS ONLY ONE DU%(PH 




•1 REM "BROKEN MELODY" 


JC 


%) STRING, NO MATTER HOW MANY VOICES 


CE 


•2 REM THREE VOICES WAIT FOR USER INPUT B 




•9518 REM EACH PHRASE HAS ONE ME$(PH%,VC% 




ETWEEN PHRASES 


HL 


) & ONE MV$(PH%,VC%) STRING PER VOICE 


NB 


•3 REM USE THIS ROUTINE FOR A SERIES OF R 




•9519 REM PHRASE 


IP 


EWARDS 


NG 


•9520 MD$(0)="[9"0"]4[9"0"]4" 


FA 


•4 REM 


JD 


•9521 ME$(0)="G[s F]GE[s D]ECBCGEFGABCDEF 




•5 REM PLAYS "I'M ON MY WAY" (FROM "PAINT 




D" 


NL 


YOUR WAGON" BY LERNER & LOEWE) 


MK 


•9522 MV$(0)="6[6" "]565[5" "]6[4" "]" 


HN 


•6 REM 


JD 


•9529 REM PHRASE 1 


10 


•10 GOSUB 9000: GOTO 100 


LC 


•9530 MD$(1)="[9"0"]4[8"0"]6" 


NA 


•60 FOR N=l TO LEN(MD$(PH)) 


FJ 


•9531 ME$(l)="FEFD[s C]DB[s A]BGG[s F]GAG 




•61 FOR VC=0 TO EV% 


GG 


FEDC" 


OF 


•62 POKE GR(VC),UG%(VC):REM NORMAL NOTES; 




•9532 MV$(1)="6[5" "]5[3" "]6[8" "]" 


PF 


DON'T POKE UG% FOR LEGATO 


AE 


•9539 REM PHRASE 2 


JB 


•63 FOR 1=0 TO 1 


JB 


•9540 MD$(2)="[7"0"]15[7"0"]15" 


PN 


•64 POKE FR(VC,I),PI%(ASC(MID$(ME$(PH,VC) 




•9541 ME$(2)="GC@GC@GC@GCDCB@CD@" 


AO 


,N,1)),I) 


BD 


•9542 MV$(2)="34 34 34 34 3 4 " 


FO 


•65 NEXT: NEXT 


EF 


•9549 REM PHRASE 3 


JA 


•66 FOR VC=EV% TO STEP -1:P0KE GR(VC),G 




•9550 MD$(3)="[7"0"]15[7"0"]15" 


EO 


%(VC):NEXT 


MB 


•9551 ME$(3)="GB@GB@GB@GBCBA@BC@" 


AA 


•67 FOR 1=0 TO DU%(VAL(MID$(MD$(PH),N,1)) 




•9552 MV$(3)="3[10" "]43[3" "]4 " 


PM 


):NEXT 


JB 


•9559 REM PHRASE 4 


JD 


•68 REM FOR VC=0 TO EV%:POKE GR(VC),UG%(V 




•9560 MD$(4)="[9"1"]5[9"1"]5" 


PA 


C):NEXT:REM STACCATO NOTES 


BO 


•9561 ME$(4)="[3"D"][3"A"][3"C"]B[3"D"][3 




•69 NEXT:PH=PH+1:IF PH>ES% THEN PH=0 


IJ 


"A"][3"C"]B" 


IB 


•70 FOR VC=0 TO EV%:POKE GR(VC) ,UG%(VC):N 




•9562 MV$(4)="5 4 5 45 4 5 4" 


LG 


EXT: RETURN 


EP 


•9569 REM PHRASE 5 


JC 


•100 PRINT "PRESS SHIFT FOR PHRASE "PH 


JB 


•9570 MD$(5)= M [9"1"]5[8"1"]8" 


KK 


•110 PRINT "ANY OTHER KEY TO STOP" 


LG 


•9571 ME$(5)="[3 ,, D"][3"A"][3"C"]BD[s C ]DE 




•120 IF PEEK(203)<>64 THEN END 


DG 


DCBAG" 


KG 


•130 IF PEEK(653)=0 THEN 120 


GC 


•9572 MV$(5)="5 4 5 45[5" "]4 " 


AI 


•140 GOSUB 60 


PC 


•9898 REM CONVERT STRINGS TO USABLE FORM 


IG 


•190 GOTO 100 


CF 


•9899 REM 


JD 


•8997 REM 


JD 


•9900 FOR PH=0 TO ES% 


EI 


•8998 REM SET UP SOUND SHAPE 


FD 


•9905 A$=ME$(PH):ME$(PH)="" 


JB 


•8999 REM 


JD 


•9910 FOR 1=1 TO LEN(A$) 


OE 


•9000 DIM MD$(23),ME$(23 t 2),MV$(23,2),G%( 
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2),GR(2),FR(2,1),AD(2) CF 

9001 DIM DU%(9),PI%(168,1),AK%(2),DY%(2) 
,SN%(2),RE%(2),WF%(2) OF 

9007 REM JD 

9008 REM ATTACK— VOICES 0,1,2 KG 

9009 REM NUMBER FROM TO 15; LOWER NUMB 
ER=SHARPER ATTACK OK 

9010 AK%(0)=0:AK%(1)=0:AK%(2)=0 CP 
9015 FOR 1=0 TO 2:AK%(I)=AK%(I)*16:NEXT FF 

9017 REM JD 

9018 REM DECAY— VOICES 0,1,2 PK 

9019 REM NUMBER FROM TO 15; LOWER NUMB 
ER=FASTER DECLINE GA 

9020 DY%(0)=7:DY%(1)=3:DY%(2)=3 AN 

9027 REM JD 

9028 REM SUSTAIN— VOICES 0,1,2 FC 

9029 REM NUMBER FROM TO 15; LOWER NUMB 
ER=S0FTER VOLUME DURING SUSTAIN JM 

9030 SN%(0)=0:SN%(1)=0:SN%(2)=0 EG 
9035 FOR 1=0 TO 2:SN%(I)=SN%(I)*16:NEXT BD 

9037 REM JD 

9038 REM RELEASE— VOICES 0,1,2 OK 

9039 REM NUMBER FROM TO 15; LOWER NUMB 
ER-FASTER DROP TO SILENCE AT END PJ 

9040 RE%(0)=0:RE%(1)=3:RE%(2)=5 BG 

9047 REM JD 

9048 REM SET SOUND ADDRESSES JC 

9049 REM JD 

9050 FR(0,0)=54272:FR(1,0)=54279:FR(2,0) 
=54286 PG 
9055 FOR 1=0 TO 2:FR(I,1)=1+FR(I,0):GR(I 
)=FR(I,0)+4:AD(I)=GR(I)+1:NEXT HJ 

9057 REM JD 

9058 REM POKE ADSR ENVELOPES JL 

9059 REM JD 

9060 FOR 1=0 TO 2:P0KE AD(I),AT%(I) OR D 
Y%(I) EN 

9065 POKE AD(I)+1,SN%(I) OR RE%(I):NEXT DK 

9066 REM JD 

9067 REM SET UP GATES JN 

9068 REM WAVEFORMS, VOICES 0,1,2 (ADD VA 
LUES) : DJ 

9069 REM TRIANGLE 0N=16; SAWTOOTH 0N=32; 
PULSE 0N=64 (SET WIDTH!); NOISE 0N=128 IL 

9070 WF%(0)=32:WF%(1)=64:WF%(2)=64 LH 
9075 FOR 1=0 TO 2:G%(I)=1 OR WF%(I):UG%( 
I)=G%(I)AND 254:NEXT AB 

9077 REM JD 

9078 REM SET PULSE WIDTHS AC 

9079 REM VOICES 0,1,2; LOW BYTE, HIGH BY 
TE MG 

9080 POKE GR(0)-2, 200: POKE GR(0)-1,3 JD 

9081 POKE GR(l)-2, 200: POKE GR(1)-1,3 LD 

9082 POKE GR(2)-2,200:P0KE GR(2)-1,3 EP 

9096 REM JD 

9097 REM SET UP PITCH ARRAY DK 

9098 REM EACH NOTE, IN ALL ITS OCTAVES JB 

9099 REM C NE 



9100 X%=3:G0SUB 9190 BK 

9101 DATA 12,1,24,2,48,4,97,8,195,16,135 
,33,15,67,30,134 IF 

9102 REM D NH 

9103 X%=4:G0SUB 9190 PH 

9104 DATA 45,1,90,2,180,4,104,9,209,18,1 
62,37,69,75,139,150 PA 

9105 REM E (F-FLAT) MH 

9106 X%=5:G0SUB 9190:Y%=13:G0SUB 9195 DN 

9107 DATA 81,1,163,2,71,5,143,10,31,21,6 
2,42,125,84,250,168 HM 

9108 REM F (E-SHARP) DB 

9109 X%=6:G0SUB 9190:Y%=19:G0SUB 9195 GE 

9110 DATA 102,1,204,2,152,5,48,11,96,22, 
193,44,131,89,6,179 IL 

9111 REM G NI 

9112 X%=7:G0SUB 9190 AO 

9113 DATA 145,1,35,3,71,6,143,12,30,25,6 
0,50,121,100,243,200 GM 

9114 REM A NC 

9115 X%=1:G0SUB 9190 PA 

9116 DATA 195,1,134,3,12,7,24,14,49,28,9 
9,56,199,112,143,225 PI 

9117 REM B NF 

9118 X%=2:G0SUB 9190 PF 

9119 DATA 250,1,244,3,233,7,210,15,165,3 
1,75,63,151,126,46,253 CF 

9120 REM D-FLAT (C-SHARP) JL 

9121 X%=11:G0SUB 9190:Y%=17:G0SUB 9195 NN 

9122 DATA 28,1,56,2,112,4,225,8,195,17,1 
34,35,12,71,24,142 KJ 

9123 REM E-FLAT (D-SHARP) FD 

9124 X%=12:G0SUB 9190:Y%=18:G0SUB 9195 LD 

9125 DATA 62,1,125,2,251,4,247,9,239,19, 
223,39,191,79,126,159 FB 

9126 REM G-FLAT (F-SHARP) HH 

9127 X%=14:G0SUB 9190:Y%=20:GOSUB 9195 HK 

9128 DATA 123,1,246,2,237,5,218,11,181,2 
3,107,47,214,94,172,189 HG 

9129 REM A-FLAT (G-SHARP) HE 

9130 X%=8:G0SUB 9190:Y%=21:GOSUB 9195 GN 

9131 DATA 169,1,83,3,167,6,78,13,156,26, 
57,53,115,106,230,212 PA 

9132 REM B-FLAT (A-SHARP) FP 

9133 X%=9:G0SUB 9190:Y%=15:G0SUB 9195 DD 

9134 DATA 221,1,187,3,119,7,239,14,223,2 
9,190,59,124,119,248,238 CN 

9135 REM C-FLAT CH 

9136 X%=10:GOSUB 9190 DL 

9137 DATA 4,1,250,1,244,3,233,7,210,15,1 
65,31,75,63,151,126 AK 

9138 REM B-SHARP IN 

9139 X%=16:G0SUB 9190 CJ 

9140 DATA 24,2,48,4,97,8,195,16,135,33,1 
5,67,30,134,255,255 NM 
9185 GOTO 9200 FM 

9189 REM READ PITCHES NA 

9190 FOR 1=0 TO 147 STEP 21:READ PI%(I+X 
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%,0),PI%(I+X%,1):NEXT: RETURN FN 

9194 REM IDENTICAL PITCHES GA 

9195 FOR 1-0 TO 147 STEP 21:PI%(I+Y%,0)= 
PI%(I+X%,0):PI%(I+Y%,1)=PI%(I+X%,1) LN 

9196 NEXT: RETURN EJ 

9197 REM JD 

9198 REM SET UP DURATIONS ME 

9199 REM JD 

9200 FOR 1=0 TO 9: READ DU%(I):NEXT MB 
9205 DATA 10,128,256,384,512,640,768,102 
4,1152,1280 KF 

9296 REM JD 

9297 REM SET FILTER AND VOLUME BN 

9298 REM FILTER FREQUENCY DE 

9299 REM LOW BYTE (0-7) X%; HIGH BYTE (0 
-255) Y% PA 

9300 X%=0:Y%=100 GD 
9305 POKE 54293, X%: POKE 54294, Y% KJ 

9308 REM FILTER ON? DD 

9309 REM VOICE 1 0N=1; 2 0N=2; 3 0N=4; 1 
&2 0N=3; 2&3 0N=6; ALL 0N=7 AL 

9310 X%=0 F>1 

9318 REM FILTER RESONANCE CE 

9319 REM PEAK VOLUME (0=LOW, 15=HIGH) FH 

9320 Y%=14 JL 
9325 Y%=Y%*16:P0KE 54295, X% OR Y% MG 

9328 REM SELECT FILTER TYPE CP 

9329 REM LOW-PAS S= 1 ;BAND-PASS=2; HIGH-PAS 
S=4;LO-BAND=3;HI-BAND=6;ALL=7 MH 

9330 X%=1 FP 
9335 X%=X%*16 LC 

9337 REM JD 

9338 REM SELECT OVERALL VOLUME FJ 

9339 REM 15=HIGH, ~0=LOW PB 

9340 Y%=15 JK 
9345 POKE 54296, 11 OR Y% HN 

9496 REM JD 

9497 REM SET MELODIES HERE PA 

9498 REM JD 

9499 REM HOW MANY VOICES? (MINUS ONE) GN 

9500 EV%=2 KA 

9508 REM JD 

9509 REM HOW MANY PHRASES? (MINUS ONE) MA 

9510 ES%=8 KH 

9514 REM JD 

9515 REM MELODY STRINGS J J 

9516 REM JD 

9517 REM EACH PHRASE HAS ONLY ONE DU%(PH 

) STRING, NO MATTER HOW MANY VOICES AO 

9518 REM EACH PHRASE HAS ONE ME$(PH,VC) 

& ONE MV$(PH,VC) STRING PER VOICE IP 

9519 REM PHRASE IP 

9520 MD$(0)="[16"0'T LE 

9521 ME$(O t O)="[3"F I ']GAFG@[3 ,l F M ]GAFGE ,l AD 

9522 MV$(0,0)="6[15" "]" KK 

9523 ME$(0,l)= n CCDCGD[4"C"]DCGDCC" JN 

9524 MV$(0,1)="4545354545453545" PG 

9525 ME$(0,2)="FAEAGBC[c B]FADAGBC[c B]" NH 



9526 MV$(0,2)="3434343434343434" GH 

9529 REM PHRASE 1 10 

9530 MD$(1)="[16"0"]" KL 

9531 ME$(1,0)="[3 ,, F"]GAFGEF[7 ,, @ I T OL 

9532 MV$(1,0)="6[15" "]»' NL 

9533 ME$(1,1)="FC£CDBCCFCECDACA" PJ 

9534 MV$(1,1)="45454 545454 5" JH 

9535 ME$(l,2)="FAEADBC[c B]FAEADFCF" CM 

9536 MV$(1,2)="3434343434343435" DH 

9539 REM PHRASE 2 JB 

9540 MD$(2)="[16"0'T LC 

9541 ME$(2,0)="[3"[c B]"]CD[c B]C@[3"[c 
B]"]CD[c B]CA" IL 

9542 MV$(2,0)="6 7 67 6 7 676" GM 

9543 ME$(2,1)="@F@FCGFF@F@FCGFF" MD 

9544 MV$(2,1)=" 5 4545 [4" "]4545" HE 

9545 ME$(2,2)="[c B]DGDCEF[c E][c B]DGDC 
EF[c E] n KA 

9546 MV$(2,2)="3535353535353535" KB 
9549 REM PHRASE 3 JA 



9550 MD$(3)- t1 [14 n ,t ]' 



CM 



9551 ME$(3,0)= ,, [3"[c B]"]CD[c B]CA[c B][ 

5"§"F MC 

9552 MV$(3,0)="6 7 676[6" ••]" MA 

9553 ME$(3,l)="[c B]FAFGEFF[c BjFAFGF" JM 

9554 MV$(3,1)="45454545454545" LF 

9555 ME$(3,2)="[c B]DADGCF[c E][c B]DADG 
D" MA 

9556 MV$(3,2)="35353535353535" NJ 

9559 REM PHRASE 4 JD 

9560 MD$(4)="[16 M ,, ] ,, DA 

9561 ME$(4,0)="F[c B]C@C[3 M @"]D[c B]C[5" 
@"]" PF 

9562 MV$(4,0)="6 7[6" "]67[5" "J" CF 

9563 ME$(4,l)= ,, [3"F"]AG[c B]AADGFAG[c B] 
AA" NK 

9564 MV$(4,1)="45454545 4 54545" LH 

9565 ME$(4,2)="FDFFGEAF[c B] [3"F"]GEAF" JH 

9566 MV$(4,2)="3535353534353535" DK 

9569 REM PHRASE 5 JC 

9570 MD$(5)="[18 ,, 0"]" AO 

9571 ME$(5,0)= M CFG@G@@GAFG[7"|a l, ]* l EC 

9572 MV$(5,0)="6[17" "]" OG 

9573 ME$(5,1)="@BGEGFGE@BFECCAFGC" MA 

9574 MV$(5,1)=" 4 54545 4 5453[3" "J" NN 

9575 ME$(5,2)="@AECDBECGACFC[c B]AFGF" BI 

9576 MV$(5,2)=" 4 54 534343 2 1" MA 

9579 REM PHRASE 6 JF 

9580 MD$(6)="[16"0"]" NO 

9581 ME$(6,0)="[3"F"]GAFG@[3"F"]GAFGE" OB 

9582 MV$(6,0)="6[15" "]" NA 

9583 ME$(6,1)="CCDCGD[4"C"]DCGDCC" KD 

9584 MV$(6,1)="4545354545453545" EM 

9585 ME$(6,2)="FAEAGBC[c B]FADAGBC[c B]" ON 

9586 MV$(6,2)="3434343434343434" FF 

9589 REM PHRASE 7 JE 

9590 MD$(7)= ,I [15"0 , T IE 

9591 ME$(7,0)="[3"F"]GAFGEC[3"@"]C@@" IG 
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9592 MV$(7,0)="6[11" "]7 " LF 

9593 ME$(7,l)="FCECDBCC@A@[c B]CF@" BP 

9594 MV$(7,1)="45454 5 4 5" AL 

9595 ME$(7,2)»"FAEADBC[c B]FFGRA[c E]@" MK 

9596 MV$(7,2)="34343434343435 " LM 

9599 REM PHRASE 8 JH 

9600 MD$(8)="[17"0"]" EG 

9601 ME$(8,0)="DC@C[c B]AFGDF[3"@"]F[3"@ 
"]" KN 

9602 MV$(8,Q)-"7[3" "]6[8" "]7[3" "]" BN 

9603 ME$(8,l)="[c B]CACA@C@CFDC[c B]A@F@ 
" CL 

9604 MV$(8 f l)= n 5[8" "]46 5 4" CA 

9605 ME$(8,2)="DCFCFCAC[c B]F[c B]AGF@F@ 

EB 

9606 MV$(8,2)="545354 3435[4" "]3 " JH 

9897 REM JD 

9898 REM CONVERT STRINGS TO USABLE FORM IG 

9899 REM JD 

9900 FOR PH=0 TO ES%:F0R VC=0 TO EV% AH 
9905 A$=ME$(PH f VC):ME$(PH,VC)= r " 1 EC 
9910 FOR 1=1 TO LEN(A$) OE 
9920 X%=ASC(MID$(A$,I,1)) IP 

9930 IF X%<72 THEN X%=X%-64:IF X%<0 THEN 
X%=0 ED 

9931 IF X%>192AND X%<200 THEN X%=X%-178 GP 

9932 IF X%=176 THEN X%=8 IF 

9933 IF X%=191 THEN X%=9 FN 

9934 IF X%=188 THEN X%=10 II 

9935 IF X%=172 THEN X%=11 IM 

9936 IF X%=177 THEN X%=12 LA 

9937 IF X%=187 THEN X%=13 IE 

9938 IF X%=165 THEN X%=14 HL 

9939 IF X%>21 THEN X%«0 DL 
9950 V$=MID$(MV$(PH,VC),I,1):IF V$<>" " 
THEN Y%=21*VAL(V$) PG 
9960 IF X%<>0 THEN X%=X%+Y% CK 
9970 ME$(PH,VC)=ME$(PH,VC)+CHR$(X%) OC 
9975 NEXT: NEXT: NEXT PI 
9980 PH=0 HP 
9990 RETURN IM 

Q(/*D-P/NKT 

FROM PAGE 47 MENU 

•5 PRINT" [CLEAR] [DOWN] [RVSON] [BLACK] QUAD 

PRINT (C) 1984 BY MICHAEL BEUTJER " AH 
•10 P0KE55,0:P0KE56,28 CE 

•20 PRINT"[3"[D0WN]"][WHITE]SELECT YOUR P 

RINTER TYPE. [DOWN] [DOWN]" PN 

•30 PRINT"PRESS Fl FOR EPSON RX/FX 80 OR 

100." PH 

•40 PRINT" [DOWN] PRESS F3 FOR COMMODORE 15 

26." PE 

•50 GETA$:IFA$=""THEN50 FO 

•60 IFASC(A$)=133THENB$="QP E*": PRINT" [CL 



EAR][10"[D0WN]"][6" "]L0ADING EPSON/GEMI 

NI VERSION" 

70 IFASC(A$)=134THENB$="QP C*": PRINT" [CL 

EAR][10"[D0WN]"][5" "] LOADING COMMODORE 

1526 VERSION" 

75 IFB$=""THEN50 

80 POKE53280,6:POKE53281, 14: PRINT" [HOME] 

[c 7][3"[D0WN]"]L0AD"CHR$(34)B$CHR$(34)" 

,8" 

90 PRINT" [ HOME ] " : P0KE198 , 5 : FORX=OT04 : REA 

DA : POKE631+X , A : NEXT : END 

500 DATA13,31,82,213,13 



CL 



NL 

PN 



FO 

CO 
GO 



1526 VERSION 

5 PRINT"[CLEAR][4"[DOWN]"][8" "]INITIALI 
ZING [3"."]" CE 

10 GOSUB570 CM 

20 P0KE53280 , :P0KE53281 ,0 :P0KE646 , 15 : PR 
INT" [CLEAR] [DOWN] [DOWN] [12" "] QUAD-PRINT 

1526" EF 

30 DIMB$(4):PRINT"[DOWN][9" "3(C) 1984 B 
Y M. BEUTJER" KK 

40 IFB=OTHENB=1:GOT070 MM 

50 PRINT" [CLEAR] [DOWN] PIC 1 (UPPER LEFT 
) : "B$(1):PRINT" PIC 2 (UPPER R'GHT) : 
"B$(2) MF 

60 PRINT" PIC 3 (LOWER LEFT ) : "B$(3):P 
RINT" PIC 4 (LOWER RIGHT) : "B$(4) EP 
70 PRINT" [DOWN] [RIGHT] [RVSON] Fl = DISP 
LAY 1 [RVS0FF][5 M "] [RVSON] F2 = LOAD 1 
[3" "]" NN 

80 PRINT"[DOWN] [RIGHT] [RVSON] F3 = DISP 
LAY 2 [RVS0FF][5 M "] [RVSON] F4 = LOAD 2 
[3" "]" FJ 

90 PRINT" [DOWN] [RIGHT] [RVSON] F5 = DISP 
LAY 3 [RVS0FF][5" "][ RVSON] F6 = LOAD 3 
[3" "]" PB 

100 PRINT" [DOWN] [RIGHT] [RVSON] F7 = DIS 
PLAY 4 [RVS0FF][5" "] [RVSON] F8 = LOAD 
4[3" "]" CF 

110 PRINT" [DOWN] [RIGHT] [RVSON] [EP] = 
DUMP POS [RVS0FF][5" "] [RVSON] [BACKAR 
ROW] - DUMP NEG " DM 

120 PRINT ,f [D0WN][RIGHT][5" "][RVS0N][3" 
"]* = QUICK VIEW SCREENS " OC 

130 PRINT"[D0WN][RIGHT][5" "] [RVSON] [3" 
"3@ = SWAP SCREENS[7" "]" HI 

140 PRINT"[D0WN][RIGHT][5" "][WS0N][3" 
"][UPARROW] = SINGLE PRINT [7" "] [DOWN]" IK 
150 GETA$:IFA$O""THEN150 AO 

160 GETA$:IFA$=""THEN160 HK 

170 A=ASC(A$) GE 

180 IFA«92THENSYS49209:GOT040 EG 

190 IFA=95THENSYS49205:G0TO4O GL 

200 IFA=42THENA=1 : GOSUB540 : SYS49430 : SYS4 
9188:G0T0300 BD 
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210 IFA=64THEN330 

220 IFA=94THEN550 

230 IFA<133THEN160 

240 IFA>140THEN160 

250 A=A-132 : IFA>4THENG0SUB460 : GOT040 

260 GOSUB540:SYS49430:SYS49188 

270 GETA$:IFA$O""THEN270 

280 GETA$:IFA$=""THEN280 

290 SYS49188:G0T040 



CL 
DI 

EE 
FK 
IB 
MC 
DB 
HJ 
OB 



300 GETA$:A=ASC(A$+CHR$(0)) : IFA=32THENSY 
S49188:GOT040 HO 

310 IFA<1330RA>136THEN300 MB 

320 A=A-132:GOSUB540:SYS49430:GOT0300 BI 
330 PRINT"ENTER THE NUMBERS OF THE SCREE 
NS" JB 

340 PRINT"YOU WANT TO SWAP (1-4)." NL 
350 INPUT" 1ST SCREEN t ";A IC 

360 INPUT"2ND SCREEN : ";B HP 

370 IFA<10RA>40RB<10RB>4THEN330 IJ 
380 G0SUB540:SYS49430 A J 

390 P0KE49153,16*(2+A*2):P0KE49152,16*(2 
+B*2) AN 

400 P0KE49155,224+(B-1)*4:P0KE49154,224+ 
(A-l)*4 LK 

410 SYS49430 JI 

420 P0KE49152,32:P0KE49153,16*(2+B*2):P0 
KE49155 , 224+( A-l )*4 : P0KE49154 , 4 JE 
430 SYS49430 JI 

440 A$=B$(A):B$(A)=B$(B):B$(B)=A$ JG 
450 G0T040 PE 

460 REM GET FILENAME AND LOAD IT. NO 
470 A=A-4: PRINT" ENTER FILENAME OF PIC" A 
": ";:INPUTA$ AB 

480 IFLEN(A$)>16THEN470 JM 

490 B$(A)=A$ AE 

500 P0KE49156,LEN(A$):P0KE49152,32:P0KE4 
9153,16*(2+A*2) OF 

520 F0RX=1T0LEN( A$ ) : P0KE49156+X , ASC(MID$ 
(A$,X,1)):NEXT NF 

530 SYS49394:P0KE49155,224+(A-1)*4:P0KE4 
9154, 28 :SYS49430: RETURN NB 

540 P0KE49153,32:P0KE49152,16*(2+A*2):P0 
KE49154 , 224+( A-l )*4 : P0KE49 155 , 4 : RETURN MC 
550 INPUT"ENTER NO. OF PICTURE TO PRINT 
(1-4) : ";A NB 

555 PRINT"PRESS P FOR POSITIVE, N FOR NE 
GATIVE " DO 

560 GETA$:IFA$<"N ,, 0RA$> n P"THEN560 CF 
562 P=49788:IFA$="P"THENP=49792 DF 
565 P0KE49152,16*(2+A*2):SYSP:G0T040 PB 
570 1=49152 AJ 

580 READ A: IF A=256 THEN RETURN HN 
590 POKE I,A:I=I+1:G0T0580 CD 

600 DATA 0,0,0,0,0,60,162,0 OH 

610 DATA 32,126,197,169,76,44,169,96 LH 
620 DATA 133,138,169,44,133,0,0,0 MD 
630 DATA 0,0,0,0,0,0,0,0 FG 

640 DATA 0,0,0,0,173,17,208,73 II 



650 DATA 32,141,17,208,173,24,208,73 IK 

660 DATA 8,141,24,208,96,169,255,208 NP 

670 DATA 2,169,0,141,33,192,32,117 ND- 

680 DATA 193,169,0,133,251,169,64,133 EM 

690 DATA 252,169,0,141,32,192,169,96 KH 

700 DATA 141,31,192,169,25,141,29,192 HJ 

710 DATA 32,121,192,169,0,133,251,169 DD 

720 DATA 128,133,252,169,0,141,32,192 DH 

730 DATA 169,160,141,31,192,169,25,141 GD 

740 DATA 29,192,32,121,192,32,45,194 IA 

750 DATA 96,32,197,193,32,178,192,165 01 

760 DATA 251,72,165,252,72,173,32,192 CE 

770 DATA 133,251,173,31,192,133,252,32 PE 

780 DATA 178,192,165,251,141,32,192,165 HF 

790 DATA 252,141,31,192,104,133,252,104 PH 

800 DATA 133,251,32,225,255,208,5,104 DG 

810 DATA 104,76,117,192,206,29,192,208 LP 

820 DATA 200,96,169,40,141,30,192,160 EM 

830 DATA 0,162,0,120,169,46,133,1 LJ 

840 DATA 177,251,141,34,192,169,47,133 PH 

850 DATA 1,88,14,34,192,62,21,192 LJ 

860 DATA 232,224,8,208,245,200,192,8 EE 

870 DATA 208,223,24,165,251,105,8,133 HJ 

880 DATA 251,165,252,105,0,133,252,162 DN 

890 DATA 0,32,219,193,206,30,192,208 HL 

900 DATA 198,96,169,1,162,8,160,0 ED 

910 DATA 32,186,255,173,4,192,162,5 JD 

920 DATA 160,192,32,189,255,169,0,170 LP 

930 DATA 160,28,32,213,255,169,1,32 DO 

940 DATA 195,255,32,204,255,96,160,0 JC 

950 DATA 132,251,174,1,192,134,252,132 OJ 

960 DATA 253,174,0,192,134,254,142,34 FG 

970 DATA 192,238,34,192,200,192,32,208 NA 

980 DATA 248,160,0,120,169,46,133,1 FE 

990 DATA 177,253,145,251,169,47,133,1 GD 
1000 DATA 88,200,208,239,230,252,230,254 LG 
1010 DATA 165,254,205,34,192,208,228,173 EE 

1020 DATA 3,192,133,252,173,2,192,133 AB 

1030 DATA 254,162,4,120,169,40,133,1 HP 
1040 DATA 177,253,145,251,200,208,249,23 

GL 
1050 DATA 252,230,254,202,208,242,169,47 GG 

1060 DATA 133,1,88,96,0,169,4,170 MB 

1070 DATA 160,255,32,186,255,169,0,32 IA 

1080 DATA 189,255,32,192,255,176,40,169 NE 

1090 DATA 6,168,162,4,32,186,255,169 KI 

1100 DATA 0,32,189,255,32,192,255,176 PK 

1110 DATA 22,169,5,168,162,4,32,186 AK 

1120 DATA 255,169,0,32,189,255,32,192 EG 

1130 DATA 255,176,4,32,176,193,24,96 CB 

1140 DATA 162,6,32,201,255,169,21,32 KH 

1150 DATA 210,255,169,13,32,210,255,32 FL 

1160 DATA 174,255,32,204,255,162,4,32 DD 

1170 DATA 201,255,169,13,32,210,255,32 DJ 

1180 DATA 174,255,32,204,255,169,0,141 DO 

1190 DATA 116,193,96,32,93,194,240,105 KG 

1200 DATA 162,4,32,201,255,169,141,32 FK 

1210 DATA 210,255,32,174,255,32,204,255 DM 
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•1220 


DATA 


•1230 


DATA 


•1240 


DATA 


•1250 


DATA 


•1260 


DATA 


•1270 


DATA 


•1280 


DATA 


•1290 


DATA 


«1300 


DATA 


•1310 


DATA 


•1320 


DATA 


• 1330 


DATA 


•1340 


DATA 


•1350 


DATA 


•1360 


DATA 


•1370 


DATA 


• 1380 


DATA 


• 1390 


DATA 


• 1400 


DATA 


•1410 


DATA 


•1420 


DATA 


•1430 


DATA 


•1440 


DATA 


•1450 


DATA 



162,5,32,201,255,162,0,189 AH 

21,192,77,33,192,32,210,255 LN 

232,224,8,208,242,32,174,255 NN 

162,4,32,201,255,174,116,193 JJ 

240,9,169,32,32,210,255,202 FE 

76.16.194.238.116.193.169.254 DI 
32,210,255,32,174,255,32,204 GJ 
255,32,109,194,96,32,197,193 IE 
162,6,32,201,255,169,24,32 MC 
210,255,169,13,32,210,255,32 FL 

174.255.32.204.255.32.231.255 MJ 
96,162,4,32,201,255,169,254 0J 
32,210,255,32,174,255,32,204 GJ 
255,238,116,193,96,162,0,189 CP 
21,192,221,123,194,208,5,232 PP 
224,8,208,243,96,162,0,189 FF 
21,192,157,123,194,232,224,8 JC 
208,245,96,0,169,255,208,2 MO 
169,0,141,33,192,32,117,193 LH 
169,0,133,251,173,0,192,133 LB 
252,169,25,141,29,192,32,197 OM 
193,32,178,192,32,225,255,208 CH 
3,76,169,194,206,29,192,208 IN 
237,32,45,194,96,256 NF 



EPSON/GEMINI VERSION 

Program as listed is for Epson printers. See introduc- 
tory article for changes required for Gemini printers, 

•5 PRINT" [CLEAR] [4" [DOWN]"] [8" "]INITIALI 

ZING[3VT CE 

•10 G0SUB540 DB 

•20 P0KE53280,0:P0KE53281,0:P0KE646,15:PR 

INT" [ CLEAR ] [ DOWN ] [ DOWN ] [ 14" " ] QUAD-PRINT 

NE 
•30 DIMB$(4):PRINT"[DOWN][9" "](C) 1984 B 

Y M. BEUTJER" KK 

•40 IFB=OTHENB=1:GOT070 MM 

•50 PRINT" [CLEAR] [DOWN] PIC 1 (UPPER LEFT 
) : "B$(1):PRINT" PIC 2 (UPPER RIGHT) : 
"B$(2) MF 

•60 PRINT" PIC 3 (LOWER LEFT ) : "B$(3):P 

RINT" PIC 4 (LOWER RIGHT) : "B$(4) EP 
•70 PRINT" [DOWN] [RIGHT] [RVSON] Fl = DISP 

LAY 1 [RVS0FF][5" "] [RVSON] F2 = LOAD 1 

roll Hill 

•80 PRINT" [DOWN] [RIGHT] [RVSON] F3 = DISP 
LAY 2 [RVS0FF][5" "] [RVSON] F4 = LOAD 2 

rgit (till 

•90 PRINT" [DOWN] [RIGHT] [RVSON] F5 = DISP 
LAY 3 [RVSOFF][5" "] [RVSON] F6 = LOAD 3 
[3" "]" 

•100 PRINT" [DOWN] [RIGHT] [RVSON] F7 = DIS 
PLAY 4 [RVS0FF][5" "] [RVSON] F8 = LOAD 
4[3" "]" CF 

•110 PRINT" [DOWN] [RIGHT] [RVSON] [EP] = 
DUMP POS [RVS0FF][5" "] [RVSON] [BACKAR 



NN 



FJ 



PB 



ROW] = DUMP NEG 
■120 PRINT"[DOWN][RIGHT][5" "] [RVSON] [3" 



DM 



OC 

GL 

AL 
HN 
GE 
EG 
GL 



"]* = QUICK VIEW SCREENS " 
130 PRINT" [DOWN] [RIGHT] [5" "] [RVSON] [3" 
"]@ » SWAP SCREENS[7" "][DOWN]" 
140 GETA$ : IFA$O""THEN140 
150 GETA$:IFA$=""THEN150 
160 A=ASC(A$) 

170 IFA=92THENSYS49209:GOT040 
180 IFA=95THENSYS49205:GOT040 
190 IFA=42THENA=1 ;GOSUB520:SYS49490:SYS4 
9188:G0T0280 FO 

200 IFA=64THEN310 CF 

210 IFA<133THEN150 EH 

220 IFA>140THEN150 FN 

230 A=A-132:IFA>4THENG0SUB440:G0T040 FD 
240 G0SUB520:SYS49490:SYS49188 AK 
250 GETA$:IFA$<>""THEN250 CP 

260 GETA$:IFA$=""THEN260 HH 

270 SYS49188:G0T040 OB 

280 GETA$ : A=ASC( A$+CHR$(0) ) : IFA=32THENSY 
S49188:G0T040 HO 

290 IFA<133ORA>136THEN280 LI 

300 A=A-132:GOSUB520:SYS49490:GOT0280 NP 
310 PRINT"ENTER THE NUMBERS OF THE SCREE 
NS" JB 

320 PRINT"Y0U WANT TO SWAP (1-4)." NL 
330 INPUT"1ST SCREEN : ";A IC 

340 INPUT"2ND SCREEN : ";B HP 

350 IFA<10RA>40RB<10RB>4THEN310 ID 
360 GOSUB520:SYS49490 AB 

370 P0KE49153,16*(2+A*2):P0KE49152,16*(2 
+B*2) AN 

380 P0KE49155 , 224+( B-l )*4 : P0KE49154 , 224+ 
(A-l)*4 LK 

390 SYS49490 KG 

400 P0KE49152,32:P0KE49153,16*(2+B*2) :P0 
KE49155,224+(A-1)*4:P0KE49154,4 JE 
410 SYS49490 KG 

420 A$=B$(A):B$(A)=B$(B):B$(B)=A$ JG 
430 GOT040 PE 

440 REM GET FILENAME AND LOAD IT. NO 
450 A=A-4: PRINT" ENTER FILENAME OF PIC"A 
": ";:INPUTA$ AB 

460 IFLEN(A$)>16THEN450 JO 

470 B$(A)=A$ AE 

480 P0KE49156,LEN(A$):P0KE49152,32:P0KE4 
9153,16*(2+A*2) OF 

500 F0RX=1T0LEN(A$) :P0KE49156+X,ASC(MID$ 
(A$,X,1)):NEXT NF 

510 SYS49454:P0KE49155,224+(A-1)*4:P0KE4 
9154,28:SYS49490:RETURN JO 

520 P0KE49153,32:P0KE49152,16*(2+A*2):P0 
KE491 54 , 224+( A-l )*4 : P0KE49155 , 4 : RETURN MC 
530 REM POKE IN ML ROUTINE DB 
540 1=49152 AJ 

550 READA:IFA=256THEN565 KA 

560 SUM=SUM+A:POKE I,A:I=I+1:GCT0550 EE 
565 IFSUMO61145THENPRINT"ERR0R IN DATA 
STATEMENTS.": END: REM SUM=61166 FOR 10X BF 
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566 RETURN IM 

570 DATA 0,0,0,0,0,60,162,0 OH 

580 DATA 32,126,197,169,76,44,169,96 LH 

590 DATA 133,138,169,44,133,0,0,0 MD 

600 DATA 0,0,0,0,0,0,0,0 FG 

610 DATA 0,0,0,0,173,17,208,73 II 

620 DATA 32,141,17,208,173,24,208,73 IK 

630 DATA 8,141,24,208,96,169,255,208 NP 

640 DATA 2,169,0,141,33,192,169,4 IF 

650 DATA 162,4,160,0,32,186,255,169 MM 

660 DATA 0,32,189,255,32,192,255,162 PJ 

670 DATA 4,32,201,255,169,0,133,251 CD 

680 DATA 169,64,133,252,169,0,141,32 NH 

690 DATA 192,169,96,141,31,192,162,210 BI 

700 DATA 32,176,193,32,210,255,169,25 BE 

710 DATA 141,29,192,32,163,192,169,0 NM 

720 DATA 133,251,169,128,133,252,169,0 PD 

730 DATA 141,32,192,169,160,141,31,192 DL 

740 DATA 169,25,141,29,192,32,163,192 MM 

750 DATA 169,27,32,210,255,169,64,32 JI 

760 DATA 210,255,169,4,32,195,255,32 MM 

770 DATA 204,255,96,162,200,32,176,193 AN 

780 DATA 32,227,192,165,251,72,165,252 IH 

790 DATA 72,173,32,192,133,251,173,31 OE 

800 DATA 192,133,252,32,227,192,165,251 JA 

810 DATA 141,32,192,165,252,141,31,192 DL 

820 DATA 104,133,252,104,133,251,169,13 GJ 

830 DATA 32,210,255,32,225,255,208,5 CF 

840 DATA 104,104,76,144,192,206,29,192 IA 

850 DATA 208,193,96,169,40,141,30,192 CE 

860 DATA 160,0,162,0,120,169,46,133 NM 

870 DATA 1,177,251,141,34,192,169,47 JO 

880 DATA 133,1,88,14,34,192,62,21 IM 

890 DATA 192,232,224,8,208,245,200,192 MB 

900 DATA 8,208,223,24,165,251,105,8 CN 

910 DATA 133,251,165,252,105,0,133,252 FL 

920 DATA 162,0,189,21,192,77,33,192 00 

930 DATA 32,210,255,232,224,8,208,242 BE 

940 DATA 206,30,192,208,187,96,169,1 PJ 

950 DATA 162,8,160,0,32,186,255,173 U 

960 DATA 4,192,162,5,160,192,32,189 MM 

970 DATA 255,169,0,170,160,28,32,213 PC 

980 DATA 255,169,1,32,195,255,32,204 PE 

990 DATA 255,96,160,0,132,251,174,1 JB 

1000 DATA 192,134,252,132,253,174,0,192 BI 

1010 DATA 134,254,142,34,192,238,34,192 JG 

1020 DATA 200,192,32,208,248,160,0,120 HC 

1030 DATA 169,46,133,1,177,253,145,251 NI 

1040 DATA 169,47,133,1,88,200,208,239 JP 
1050 DATA 230,252,230,254,165,254,205,34 AL 

1060 DATA 192,208,228,173,3,192,133,252 NH 

1070 DATA 173,2,192,133,254,162,4,120 NL 

1080 DATA 169,40,133,1,177,253,145,251 OC 
1090 DATA 200,208,249,230,252,230,254,20 

2 EB 

•1100 DATA 208,242,169,47,133,1,88,96 PE 
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1110 DATA 142,188,193,142,195,193,160,0 DC 

1120 DATA 162,0,232,189,200,193,32,210 JM 

1130 DATA 255,138,217,200,193,48,243,96 DK 

1135 REM JD 

1136 REM JD 

1137 REM PRINTER CONTROL CODES FH 

1138 REM JD 

1139 REM JD 

1140 REM * EPSON PRINTER MODULE * LG 
1150 DATA 5,27,42,6,128,2,0,0,0,0 CJ 
1160 DATA 3,27,65,8,0,0,0,256 GF 
1170 REM * GEMINI PRINTER MODULE * JE 
1180 DATA 4,27,76,128,2,0,0,0,0,0 HD 
1190 DATA 3,27,51,16,0,0,0,256 LL 

G510 SIMULATOR 

FROM PAGE 77 

100 REM ******* 6510 SIMULATOR ******** BD 
110 DATA ASL,BRK,CLC,CLD,CLI,CLV,DEX,DEY 
,INX,INY,LSR,NOP,PHA,PHP,PLA IL 

120 DATA PLP,ROL,ROR,RTI,RTS,SEC,SED,SEI 
,TAX,TAY,TSX,TXA,TXS,TYA LO 

130 DATA ADC,AND,CMP,CPX,CPY,EOR,LDA,LDX 
,LDY,ORA,SBC FG 

140 DATA ADC,AND,ASL,BCC,BCS,BEQ,BIT,BMI 
, BNE , BPL , BVC , BVS , CMP , CPX , CPY EC 

150 DATA DEC,EOR,INC,JMP,JSR,LDA,LDX,LDY 
,LSR,ORA,ROL,ROR,SBC,STA,STX FC 

160 DATA STY,ASL,LSR,R0L,R0R LJ 

170 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,FBK 
180 DATA 0000 , 0001 , 0010 , 001 1 , 0100 , 0101 , 
110,0111 PG 

190 DATA 1000,1001,1010,1011,1100,1101,1 
110,1111 GG 

200 DIM HEX$(8),BIT$(8),H$(16),B$(16),TE 
MP$(2),BIT(8),N$(75) NC 

210 AH$="00" : XH$="00" : YH$="00" : Z$="0" : AD 
=0:SC=0:YD=0 AL 

220 AB$=" [ 8"0" ] " : XB$=" [ 8"0" ] " : YB$=" [ 8"0" 
]" GF 

230 N=0:V=0:B=0:D=0:I=0:Z=0:C=0 NN 
240 IF RIGHT$(A$,1)=" "THEN 300: REM TYPE 

A SPACE BETWEEN THE QUOTES PD 

250 FOR L=l TO 75:READ N$(L):NEXT L MA 
260 FOR L=l TO 16 -.READ H$(L):NEXT L:F0R 
L=l TO 16:READ B$(L):NEXT L CH 

270 PRINT CHR$(147):REM CLEAR SCREEN EG 
280 PRINT " N V - B D I Z C" NF 
285 PRINT N;V;" - ";B;D;I;Z;C:PRINT LA 
290 PRINT "A: ";AH$;"[7" "]X: ";XH$;"[7" 

"3Y: ";YH$ KM 

295 PRINT AB$;"[4" "]";XB$;"[4" M ]";YB$: 
PRINT OB 

300 B=0:A$="": INPUT " ";A$:REM TYPE SPAC 
E BETWEEN SECOND PAIR OF QUOTES MG 



•320 IF LEN(A$)<3 OR LEN(A$)>10 THEN 300 


CD 


•700 FOR L=41 TO 71: IF OC$=N$(L) THEN OC 






•330 IF LEN(A$)=3 THEN 420: REM GO TO IMPL 




=L:GOT0720 CN 




IED-ADDRESS ROUTINES 


JC 


•710 NEXT L:GOTO 300 CH 


•340 IF MID$(A$,4,l)OCHR$(32) THEN 300 


AJ 


•720 IF LEN(0P$)>4 THEN 300 KF 


•350 IF RIGHT$(A$,1)=CHR$(32) THEN 300 


PC 


♦730 FOR L=l TO LEN(0P$):X$=MID$(0P$,L,1) 




•360 GOTO 450: REM GO TO IMMEDIATE- AND AB 




:IF X$<Z$ OR X$>"F" THEN 300 PC 


SOLUTE-ADDRESS ROUTINES 


BH 


•740 IF X$>"9" AND X$<"A" THEN 300 AI 




•370 REM *** ROUTINE TO CONVERT 0P$ & AD$ 




•750 NEXT L MO 


1 


TO BINARY NUMBERS *** 


LP 


•760 OH$=OP$:GOSUB 1030:0P$=0D$:0P$=STR$( 




•380 OD$=OP$:GOSUB 11 30: FOR L=l TO 8:BIT$ 




PEEK(VAL(OP$))) JF 




(L)=Z$:NEXT L 


AG 


•770 OC=0C-40:GOTO 1430 I A 




•390 FOR L=l TO 8:B1$(L)=MID$(0B$,L,1) :NE 




•780 REM *** ACCUMULATOR ADDRESSING *** 


EG 




XT L 


EC 


•790 OP$="A M 


AL 




•400 FOR L=l TO 8:B2$(L)=MID$(AB$,L,1) :NE 




•800 FOR L=72 T075:IF OC$=N$(L) THEN OC=L 






XT L: RETURN 


01 


-71: GOTO 820 


01 




•410 REM *** IMPLIED-ADDRESSING ROUTINES 




•810 NEXT L:G0T0 300 CH 


*** 


JL 


•820 ON OC GOTO 1510,1760,1790,1810 


IL 




•420 FOR L=l TO 29: IF A$=N$(L) THEN OC$=A 




•830 REM *** DECIMAL OPERAND, IMMEDIATE A 






$:OC=L:GOTO 1350 


LN 


DDRESS ** JC 




•430 NEXT L:GOTO 300 


CH 


•840 IF VAL(0P$)>65535 THEN 300 


JD 




•440 REM *** IMMEDIATE, ABSOLUTE & ACCUMU 




•860 FOR L=l TO LEN(0P$):X$=MID$(0P$,L,1) 






LATOR ADDRESS MODES *** 


CP 


:IF ASC(X$)<48 OR ASC(X$)>57 THEN 300 


EI 




•450 0C$=LEFT$(A$,3):0P$=MID$(A$,5) 


NC 


•870 FOR L=41 TO 71:IF OC$=N$(L) THEN 0C= 






•460 IF LEFT$(0P$,1)="#" AND MID$(0P$,2,1 




L:GOTO 890 CP 




)="$" THEN FLAG$="AH":GOTO 530 


KH 


•880 NEXT L:G0T0 300 CH 




•470 IF LEFT$(0P$,1)= ,, # H THEN FLAG$="AD": 




•890 OP$=STR$(PEEK(VAL(OP$))) IN 




GOTO 620 


IG 


•900 OC=0C-40:GOT0 1430 


IA 




•480 IF LEFT$(0P$,1)="$" THEN FLAG$="IH": 




•910 REM *** DECIMAL-TO-HEXADECIMAL CONVE 






GOTO 690 


OK 


RSION *** 


JN 




•490 IF OP$="A" THEN 790 


MN 


•920 FOR L»l TO 4:HEX$(L)="":NEXT L 


KJ 




•500 IF LEFT$(0P$,1)<"0" AND LEFT$(0P$,1) 




•930 FOR L=l TO 5:T$=RIGHT$(0D$,L) :NEXT L 


HO 




>"9" THEN 300: REM TRY AGAIN 


JO 


•940 NR=VAL(0D$):X=4 


KF 




•510 FLAG$="ID":GOT0 840 


CB 


•950 TMP=NR:NR=INT(NR/16) :TMP=TMP-NR*16 


DM 




•520 REM *** HEX OPERAND, ABSOLUTE ADDRES 




•960 IF TMP<10 THEN HEX$(X)=RIGHT$(STR$(T 






s *** 


FI 


MP),1):G0T0 980 


BN 




•530 0P$=MID$(0P$,3) 


MH 


•970 HEX$(X)=CHR$(TMP-10+ASC("A")) 


EA 




•540 FOR L=30 TO 40: IF OC$=N$(L) THEN 0C= 




•980 IF NROO THEN X=X-1:G0T0 950 


PN 




L:G0T0 560 


GP 


•990 0H$=HEX$(1)+HEX$(2)+HEX$(3)+HEX$(4) 


JM 




•550 NEXT L:GOTO 300 


CH 


•1000 IF LEN(0H$)=1 THEN OH$=Z$+OH$ 


BP 




•560 IF LEN(0P$)>2 THEN 300 


JP 


•1010 RETURN 


IM 




•570 FOR L=l TO LEN(OP$) :X$=MID$(0P$,L,1 




•1020 REM *** HEXADECIMAL-TO-DECIMAL CONV 






):IF X$<Z$ OR X$>"F" THEN 300 


PC 


ERSION *** 


GB 




•580 IF X$>"9"AND X$<"A" THEN 300 


AI 


•1030 NR=0:FOR L=l TO LEN(OH$):HEX$(L)=MI 






•590 IF LEN(0P$)=1 THEN 0P$=Z$+0P$ 


JH 


D$(0H$,L,1) 


FF 




•600 0H$=0P$:G0SUB 1030 :0P$=0D$: GOTO 670 


IN 


•1040 IF HEX$(L)<="9" THEN NR=NR*16+VAL(H 






•610 REM *** DECIMAL OPERAND, ABSOLUTE AD 




EX$(L)):GOTO 1060 


GO 




DRESSING *** 


GN 


•1050 NR=NR*16+ASC(HEX$(L))-ASC("A")+10 


CE 




•620 0P$=MID$(0P$,2) 


MG 


•1060 NEXT L:OD$=STR$(NR): RETURN 


OK 




•630 FOR L=30T0 40: IF OC$=N$(L) THEN OC=L 




•1070 REM *** BINARY-TO-DECIMAL CONVERSIO 




:GOTO 650 


GB 


N *** 


FC 




•640 NEXT L:G0T0 300 


CH 


•1080 FOR L=8 TO 1 STEP -1:B$(L)=MID$(0B$ 






•650 IF VAL(0P$)>255 THEN 300 


OK 


,L,1):NEXT L AL 




•660 FOR L=l TO LEN(OP$) :X$=MID$(0P$,L,1 




•1090 FOR L=l TO 8:BIT(L)=VAL(B$(L)) :NEXT 






):IFASC(X$)<48 OR ASC(X$)>57 THEN 420 


EH 


L:0D=0:NR=256 


NL 




•670 OC=OC-29:GOT0 1420 


HK 


•1100 FOR L=l TO8:NR=NR/2:0D=OD+BIT(L)*N 






•680 REM *** HEX OPERAND, IMMEDIATE ADDRE 


R:NEXT L 


GF 




ss *** 


EA 


•1110 OD$=STR$(OD): RETURN 


NO 




•690 0P$=MID$(0P$,2) 


MG 


•1120 REM *** DECIMAL-TO-BINARY CONVERSIO 

AHOY! 
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N *** DG 

1130 0D=VAL(0P$):F0R L=8 TO 1 STEP -1:TM 
P=0D/2 : NR=TMP-INT(TMP) EL 

1140 IF NR=0 THEN BT$(L)=Z$:G0TO 1160 JO 
1150 BT$(L)="1" JE 

1160 OD=INT(TMP):NEXT L BP 

1170 0B$=BT$(1)+BT$(2)+BT$(3)+BT$(4)+BT$ 
(5)+BT$(6)+BT$(7)+BT$(8) :RETURN DN 
1180 REM *** HEX -TO-BINARY CONVERSION ** 

* AI 
1190 HEX$(1)= ,, ":HEX$(2)="":F0R L=l TOLEN 

(0H$):HEX$(L)=MID$(0H$,L,1) DK 

1200 NEXT L:IF HEX$(2)="" THEN HEX$(2)=H 
EX$(1):HEX$(1)=Z$ OM 

1210 FOR L=l TO 16: IF HEX$(1)=H$(L) THEN 

BIT$(1)=B$(L) HC 

1220 NEXT L:FOR L=l TO 16:IF HEX$(2)=H$( 
L) THEN BIT$(2)=B$(L) IG 

1240 NEXT L:0B$=BTT$(1)+BIT$(2):PRINT:RE 
TURN AP 

1260 REM *** BINARY-TO-HEX CONVERSION ** 

* HA 
1270 FOR L=l TO 8:BIT$(L)=MID$(0B$,L, 1) : 
NEXT L MM 
1280 BITS=BIT$(1)+BIT$(2)+BIT$(3)+BIT$(4 
)+BIT$(5)+BIT$(6)+BIT$(7)+BIT$(8) PA 
1290 T1$=LEFT$(BIT$,4):T2$=RIGHT$(BIT$,4 
):FOR L=l TO 16 NM 
1300 IF T1$=B$(L)THEN HEX$(1)=H$(L) IL 
1310 NEXT L:FOR L=l TO 16: IF T2$=B$(L) T 
HEN HEX$(2)=H$(L) NK 
1320 NEXT L:IF HEX$(l)= ,m THEN HEX$(1)=Z 

$ FG 

1330 0H$=HEX$(1)+HEX$(2):RETURN CO 
1340 REM *** ON/GOTO DATA *** LE 

1350 ON OC GOTO 1510,1560,1570,1580,1590 
,1600,1610,1650,1690,1730 JB 

1360 NR=0C-10:0N NR GOTO 1760,1780,1780, 
1780, 1780, 1780, 1790, 1810, 1830, 1840 KG 
1380 NR=NR-10:0N NR GOTO 1850,1860,1870, 
1880 , 1900 , 1920 , 1930 , 1940 , 1950 , 1840 CF 
1400 NR=NR-10:0N NR GOTO 1850,1860,1870, 
1880, 1900, 1920, 1930, 1940, 1950, 1950 BP 
1420 ON OC GOTO 1970,2100,2170,2250,2320 
,2390,2450,2550,2650,2750,2810 BD 
1430 ON OC GOTO 1970,2350,3250,1780,1780 
, 1780,3200, 1780, 1780, 1780 JO 

1440 NR=OC-10:ON NR GOTO 1780,1780,3250, 
2250,2320,3260,2390,3290,1780,1780 EL 
1460 NR=NR-10:0N NR GOTO 2450,2550,2650, 
3320,2750,3340,3360,2810,1780,1780 OL 
1480 NR=NR-10:0N NR GOTO 1780,3390 BB 
1500 REM *** IMPLIED- ADDRESS OP-CODE ROU 
TINES CG 

1510 C=VAL(LEFT$(AB$,l)):AB$=MID$(AB$ t 2) 
+Z$:REM *** ASL *** EH 

1520 0B$=AB$:GOSUB 1270:AH$=OH$:OP$=OH$: 
GOSUB 1030:N=0:Z=0 DF 



1530 IF LEFTS (0B$,1)="1 "THEN N=l OP 
1540 IF VAL(0D$)=OTHEN Z=l BO 

1550 GOTO 3390 FK 

1560 B=1:G0T0 3390: REM *** BRK *** JG 
1570 C=0:GOT0 3390: REM *** CLC *** EL 
1580 D=0:G0T0 3390: REM *** CLD *** FJ 
1590 1=0: GOTO 3390: REM *** CLI *** IH 
1600 V=0:GOTO 3390: REM *** CLV *** NN 
1610 OH$=XH$: GOSUB 1030:XD=VAL(0D$):REM 
*** DEX ** IF 

1620 XD=XD-1:IF XD<0 THEN XD=255 JO 
1 630 OD$=STR$ ( XD ) : G0SUB920 : XH$=OH$ : GOSUB 

1190:XB$=0B$ BF 

1640 TMP=XD: GOSUB 3410: GOTO 280 EF 
1650 0H$=YH$:GOSUB 1030:YD=VAL(0D$):REM 
*** DEY *** 00 

1660 YD=YD-1:IF YD<0 THEN YD=255 BC 
1670 0D$=STR$(YD): GOSUB 920:YH$=OH$:GOSU 
B 1190:YB$=0B$ KK 

1680 TMP=YD: GOSUB 34 10: GOTO 280 FE 
1690 OH$=XH$:GOSUB 1030:XD=VAL(0D$):REM 
*** INX *** BD 

1700 OD$=STR$(XD): GOSUB 920:XH$=OH$:GOSU 
B 1190:XB$=OB$ BF 

1710 XD=XD+1:IF XD>255 THEN XD=0 KP 
1720 GOTO 1630 FN 

1730 0H$=YH$:GOSUB 1030:YD=VAL(0D$) :REM 
*** INY *** CO 

1740 YD=YD+1:IF YD>255 THEN YD=0 NB 
1750 GOTO 1670 FJ 

1760 C=VAL(RIGHT$(AB$,1)):AB$=Z$+LEFT$(A 
B$,7):REM *** LSR *** 00 

1770 GOTO 1520 FN 

1780 GOTO 3390: REM *** NOP,PHA,PHP,PLA A 
ND PLP *** OP 

1790 GOTO 3340: REM *** ROL *** AC 
1810 GOTO 3360: REM *** ROR *** EC 
1830 N=0:V=0:B=0:D=0:I=/J:Z=0:C=0:GOTO 28 
REM *** RTI *** ND 

1840 GOT 3390: REM *** RTS *** LG 

1850 C=1:G0T0 3390: REM *** SEC *** ID 
1860 D=1:G0T0 3390; REM *** SED *** HG 
1870 1=1: GOTO 3390: REM *** SEI *** GP 
1880 XH$=AH$:XB$=AB$:OP$=AH$: GOSUB 1030: 
TMP=VAL(OD$):REM *** TAX *** CG 

1890 GOSUB 34 10: GOTO 3390 PI 

1900 YH$=AH$:YB$=AB$:OP$=AH$: GOSUB 1030: 
TMP=VAL(OD$):REM *** TAY *** CN 

1910 GOSUB 3410: GOTO 3390 PI 

1920 XH$="00":XB$="[8 ,, 0"]": GOSUB 3410: GO 
TO 3390: REM *** TSX *** LN 

1930 AH$=XH$:AB$=XB$:GOTO 1520: REM *** T 
XA *** AO 

1940 GOTO 3390: REM *** TXS *** DL 
1950 AH$=YH$:AB$=YB$:GOTO 1520: REM *** T 
YA *** HP 

•1960 REM *** ABSOLUTE-ADDRESS OPERANDS * 
** FI 
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1970 IF D THEN 2950: REM *** ADC *** NJ 
1980 OP=VAL(OP$):TMP$=AB$ OM 

1990 GOSUB 1130: PLUS $=0B$ HA 

2000 0H$=AH$: GOSUB 1030:AD$=0D$:AD=VAL(A 
D$):TMP=AD NF 

2010 AD=AD+OP+C:C=0:IF AD>255 THEN GOSUB 

2090 DK 

2020 AD$=STR$(AD) :0D$=AD$:G0SUB920:AH$=0 
H$ BL 

2030 GOSUB 1190:AB$=OB$ JK 

2040 N=0:IF AD>127 THEN N=l NO 

2050 Z=0:IF AD=0 THEN Z=l FG 

2060 V=0 DL 

2070 IF LEFT$(TMP$,1)=LEFT$(PLUS$,1) AND 

LEFT$(TMP$,l)OLEFT$(AB$,l)THEN V=l LN 
2080 OD$=AD$:GOSUB 1030: AH $=0H$: GOTO 280 DC 
2090 C=l:AD=AD-256: RETURN DP 

2100 GOSUB 380: REM *** AND *** PJ 
2110 FOR L=l TO 8:BIT$(L)="0":NEXT L A A 
2120 FOR L=l TO 8:IF B1$(L)="1" AND B2$( 
L)="l" THEN BIT$(L)="1" HJ 

2130 NEXT L MO 

2140 AB$=BIT$(1)+BIT$(2)+BIT$(3)+BIT$(4) 
+BIT$(5)+BIT$(6)+BIT$(7)+BIT$(8) LC 
2150 0B$=AB$:G0SUB 1270:AH$=0H$ LN 
2160 GOSUB 1030:TMP=VAL(0D$):G0SUB3410:P 
RINT:G0T0 280 KG 

2170 0H$=AH$:G0SUB 1030:AD$=0D$:AD=VAL(A 
D$):OP=VAL(OP$):REM *** CMP *** NB 
2180 Z=0:IF AD=0P THEN Z=l NN 

2190 N=0:IF 0P>AD THEN N=l NA 

2220 C=0:IF AD>0P OR AD=0P THEN C=l CN 
2240 GOTO 3390 FK 

2250 OH$=XH$:GOSUB 1030:XD$=0D$:XD=VAL(X 
D$):0P=VAL(0P$):REM *** CPX *** CG 
2260 Z=0:IF XD=0P THEN Z=l LK 

2280 N=0:IF 0P>XD THEN N=l NL 

2300 C=0:IF XD>0P OR XD=0P THEN C=l GF 
2310 GOTO 3380 GD 

2320 GH$=YH$: GOSUB 1030:YD$=0D$:YD=VAL(Y 
D$):0P=VAL(0P$):REM *** CPY *** CN 
2330 Z=0:IF YD=0P THEN Z=l NF 

2340 N=0:IF 0P>YD THEN N=l NI 

2350 C=0:IF YD>0P OR YD=0P THEN C=l FN 
2380 GOTO 3380 GD 

2390 GOSUB 380: REM *** EOR *** OG 
2400 FOR L=l TO 8:BIT$(L)=Z$:NEXT L PJ 
2410 FOR L=l TO 8: IF B1$(L)= M 1" AND B2$( 
L)="l" THEN BIT$(L)="0":GOT0 2440 KO 
2420 IF B1$(L)="1" OR B2$(L)="1" THEN BI 
T$(L)="1" FE 

2440 NEXT L:GOTO 2140 FP 

2450 IF D=l THEN 2480: REM *** LDA *** LG 
2460 0D$=0P$: GOSUB 920 :AH$=0H$: GOSUB 119 
0:AB$=OB$ IG 

2470 TMP=VAL(OP$): GOSUB 3410:GOTO 280 HA 
2480 IF FLAG$="AD" AND VAL(0P$)>99 THEN 
300 JD 



2490 IF FLAG$<>"AD" THEN OD$=OP$: GOSUB 9 
20:AH$=0H$:GOTO 2530 MD 

2500 IF LEN(0P$)=1 THEN 0P$=Z$+0P$ JH 
2510 AH$=0P$:0H$=AH$:G0T0 2530 NJ 
2520 OD$=OP$: GOSUB 920:AH$=0H$ EB 
2530 GOSUB 1190:AB$=0B$ JK 

2540 TMP=VAL(0P$): GOSUB 3410:G0T0 2470 JN 
2550 IF D=l THEN 2580: REM *** LDX *** MM 
2560 OD$=OP$: GOSUB 920 :XH$=QH$: GOSUB 119 
0:XB$=OB$ NO 

2570 TMP=VAL(0P$): GOSUB 3410:G0T0 280 HA 
2580 IF FLAG$="AD" AND VAL(OP$)>99 THEN 
300 JD 

2590 IF FLAG$<>"AD" THEN 0D$=0P$:G0SUB 9 
20:XH$=0H$:G0T0 2630 GN 

2600 IF LEN(0P$)=1 THEN 0P$=Z$+0P$ JH 
2610 XH$=OP$:OH$=XH$:GOT0 2630 HA 
2620 0D$=0P$: GOSUB 920:XH$=OH$ CM 
2630 GOSUB 1190:XB$=0B$ MF 

2640 TMP=VAL(0P$): GOSUB 3410:G0T0 2570 JK 
2650 IF D=l THEN 2680: REM *** LDX *** OJ 
2660 0D$=0P$:G0SUB 920 :YH$=OH$: GOSUB 119 
0:YB$=OB$ JG 

2670 TMP=VAL(OP$): GOSUB 3410:GOT0 280 HA 
2680 IF FLAG$="AD" AND VAL(0P$)>99 THEN 
300 JD 

2690 IF FLAG$<>"AD" THEN 0D$=0P$: GOSUB 9 
20:YH$=0H$:GOT0 2730 PN 

2700 IF LEN(0P$)=1 THEN 0P$=Z$+0P$ JH 
2710 YH$=0P$:0H$=YH$:G0T0 2730 EL 
2720 0D$=0P$: GOSUB 920:XH$=0H$ CM 
2730 GOSUB 1190:YB$=0B$ OC 

2740 TMP=VAL(OP$): GOSUB 3410:G0T0 2670 JP 
2750 GOSUB 380: REM *** ORA *** KE 
2760 FOR L=l T08:IF B1$(L)="1" OR B2$(L) 
="1" THEN BIT$(L)="1" KC 

2770 NEXT L: AB$="":F0R L=l TO 8:AB$=AB$+ 
BIT$(L):NEXT L PE 

2790 OB$=AB$: GOSUB 1270:AH$=OH$ LN 
2800 GOSUB 1030:TMP=VAL(OD$):GOSUB3410:G 
OTO 3390 FB 

2810 IF D THEN 3060: REM *** SBC *** NI 
2820 0P=VAL(0P$):TMP$=AB$ OM 

2830 GOSUB 1130:MI$=0B$ LJ 

2840 OH$=AH$: GOSUB 1030:AD$=0D$:AD=VAL(A 
D$):TMP=AD NF 

2850 AD=AD-0P:IF C=0 THEN AD=AD-1 IN 
2860 IF AD<0 THEN AD=256+AD:C=0 AN 
2870 AD$=STR$( AD) :0D$=AD$: GOSUB 920:AH$= 
0H$ BL 

2880 GOSUB 1190:AB$=0B$ JK 

2890 N=0:IF AD>127 THEN N=l NO 

2900 Z=0:IF AD=0 THEN Z=l FC 

2910 V=0:IF LEFT$(TMP$,l)=LEFT$(MI$ f 1) T 
HEN 2930 EE 

2920 IF LEFT$(AB$,1)*LEFT$(TMP$,1) THEN 
V=l HI 

2930 0D$=AD$:G0SUB 1030: AH$=0H$: GOTO 280 DC 
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TO ENTER SCREEN MAGIC. 



You must use the Flankspeed program. See the instructions and listing 
.. for Flankspeed on page 86. 



CG 
PO 
NE 
HK 
EF 



2940 REM *** BCD ADDITION ROUTINE *** AC 

2950 IF FLAG$<>"AD" THEN 1980 HP 

2960 IF LEFT$(AH$,1)>"9" OR RIGHT$(AH$,1 

)> M 9" THEN 3030 

2970 AD=VAL(AH$) 

2980 0P=VAL(QP$ ) : AD=AD+0P+C : C=0 

2990 GOSUB 1030:TMP=VAL(0D$) :G0SUB 3410 

3000 IF AD>99 THEN GOSUB 3040 

3010 AH$=STR$(AD):IF LEN(AH$)=1 THEN AH$ 

=Z$+AH$ JN 

3020 0H$=AH$: GOSUB 1 190 :AB$=0B$: GOTO 280 ID 

3030 OH$=AH$: GOSUB 1030:AD$=OD$:AD=VAL(A 

D$):G0T0 2980 OF 

3040 C=1:AD=AD-100: RETURN CF 

3050 REM *** BCD SUBTRACTION ROUTINE *** DL 

3060 IF FLAG$<>"AD" THEN 2820 HJ 

3070 IF LEFT$(AH$,1)> ,, 9" OR RIGHT$(AH$,1 

)>"9" THEN 3120 GA 

3080 AD=VAL(AH$) :0P=VAL(0P$) :AD=AD-OP:IF 

C=0 THEN AD=AD-1 LB 

3100 IF AD<0 THEN GOSUB 3130 OF 

3110 GOTO 3010 EP 

3120 0H$=AH$: GOSUB 1030:AD$=0D$:AD=VAL(A 
D$):GOT0 3090 
3130 C=0:AD=100+AD: RETURN 
3140 REM *** IMMEDIATE- ADDRESS ROUTINES 
**# 

3150 OD$=OP$:GOSUB 920:G0SUB 1190:REM ** 

* ASL *** 

3160 C=VAL(LEFT$(OB$,l)):OB$=MID$(OB$,2) 

+2$ 

3170 GOSUB 1270:G0SUB 1030:X=VAL(0D$) :N= 

0:IF X<0 THEN N=l 

3180 Z=0:IF X=0 THEN Z=l 

3190 GOTO 280 

3200 GOSUB 1030:AD=VAL(0D$):REM *** BIT 

*** 

3210 GOSUB 1130:N=VAL(LEFT$(OB$,1)):V=VA 

L(MID$(0B$,2,1)) 

3220 GOSUB 400:Z=1:F0R L=l TO 8 

3230 IF B1$(L)="1" AND B2$="l" THEN Z=0 

3240 NEXT L:G0T0 3390 

3250 GOTO 2170 

3260 0P=VAL(0P$):0P=0P-1:IF OP<0 THEN N: 

REM *** DEC *** 

3270 IF 0P=0 THEN Z=l 

3280 GOTO 3390 

3290 0P=VAL(0P$):0P=0P+1:IF 0P<0 THEN N= 

1:REM *** INC *** 

3300 IF 0P=Z THEN Z=l 

3310 GOTO 3390 

3320 0D$=0P$:GOSUB 920:G0SUB 1190 

3330 C=VAL(RIGHT$(0B$,1)):0B$=Z$+LEFT$(0 

B$,7):G0T0 3170 

3340 IF C=l THEN J$="1":REM *** ROL *** 

3341 IF OO THEN J$="0" 
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3342 C=VAL(LEFT$(AB$,1)):AB$=RIGHT$(AB$, 
7)+J$ BD 

3350 0B$=AB$: GOSUB 1270:AH$=OH$:OP$=0H$: 



DF 
OP 
BO 
FK 
GH 
PL 



GOSUB 1030:N=0:Z=0 

3355 IF LEFT$(0B$,1)="1" THEN N=l 

3356 IF VAL(OD$)=OTHEN Z=l 

3357 GOTO 3390 

3360 IF C=l THEN J$="1":REM *** ROR *** 
3365 IF C=0 THEN J$=Z$ 

3370 C=VAL(RIGHT$(AB$,1)):AB$=J$+LEFT$(A 
B$,7) DL 

3371 GOTO 3350 FO 
3380 REM *** PRINT LINE SPACE & GET ANCT 
HER LINE *** FK 
3390 PRINT: GOTO 280 PI 
3400 REM *** SET Z AND N FLAGS *** HO 
3410 N=0:IF TMP>127 THEN N=l EE 
3420 Z=0:IF TMP=0 THEN Z=l MO 
3430 RETURN IM 



NI 


FROM PAGE 33 


















CB 


First byte: COOO 




Last byte: C8E7 




SYS to Start: RUN 




COOO: 


A9 


80 


8D 


8A 


02 


20 


44 


E5 


8E 


AN 


C008: 


A9 


00 


8D 


21 


DO 


8D 


15 


DO 


A4 




C010: 


A9 


OB 


8D 


20 


DO 


8D 


86 


02 


59 


CL 


C018: 


AO 


08 


A2 


17 


A9 


12 


20 


D2 


29 




C020: 


FF 


18 


20 


FO 


FF 


A9 


B4 


2 


C7 


AD 


C028: 


D2 


FF 


CA 


EO 


FF 


DO 


F2 


20 


8A 




C030: 


66 


E5 


A9 


OD 


8D 


EB 


C8 


A9 


IF 


GF 


C038: 


C7 


85 


FE 


A9 


C7 


85 


FF 


20 


9B 


AC 


C040: 


68 


CO 


20 


68 


CO 


A9 


D9 


85 


BB 


CG 


C048: 


FE 


A9 


C7 


85 


FF 


20 


68 


CO 


87 




C050: 


20 


68 


CO 


A9 


00 


8D 


EB 


C8 


85 


IJ 


C058: 


A9 


EB 


85 


FE 


A9 


C7 


85 


FF 


69 




C060: 


20 


68 


CO 


AO 


00 


4C 


76 


CO 


CD 


IP 


C068: 


AO 


00 


Bl 


FE 


20 


D2 


FF 


C8 


75 


HD 


C070: 


CD 


EB 


C8 


DO 


F5 


60 


B9 


AA 


7E 


HC 


C078: 


C7 


99 


CO 


3E 


C8 


CO 


ID 


DO 


50 


FN 


C080: 


F5 


A9 


00 


99 


CO 


3E 


C8 


CO 


42 


FB 


C088: 


40 


DO 


F8 


A9 


2E 


8D 


00 


DO 


C8 




C090: 


A9 


7 


8D 


01 


DO 


A9 


07 


8D 


48 


EM 


C098: 


27 


DO 


A9 


00 


8D 


10 


DO 


A9 


52 


AC 


COAO: 


FB 


8D 


F8 


07 


20 


60 


C3 


A9 


18 


FK 


C0A8: 


01 


8D 


15 


DO 


AD 


00 


DC 


C9 


71 




COBO: 


7F 


FO 


F9 


20 


70 


C3 


AD 


00 


ID 


NL 


COBS: 


DC 


49 


FF 


8D 


EB 


C8 


29 


10 


5A 


CA 


COCO: 


C9 


10 


FO 


6F 


AD 


EB 


C8 


29 


86 


FK 


C0C8: 


OF 


C9 


01 


FO 


72 


C9 


02 


FO 


C2 


EC 


CODO: 


6B 


C9 


04 


FO 


64 


C9 


08 


FO 


22 




C0D8: 


5D 


20 


E4 


FF 


C9 


56 


FO 


62 


AE 


DK 


COEO: 


C9 


85 


FO 


76 


C9 


89 


FO 


75 


51 


GF 


C0E8 : 


C9 


86 


FO 


74 


C9 


8A 


FO 


73 


57 


PA 


COFO: 


C9 


87 


FO 


51 


C9 


88 


FO 


5F 


27 



C0F8: 


C9 


8C 


FO 


58 


C9 


14 


FO 


48 


AF 


C2C8: 


C7 


AE 


EE 


C8 


8E 


41 


C7 


8C 


IB 


CI 00: 


C9 


13 


FO 


47 


C9 


ID 


FO 


2E 


IB 


C2D0: 


EE 


C8 


4C 


A7 


C2 


AC 


27 


DO 


E3 


CI 08: 


C9 


9D 


FO 


2D 


C9 


91 


FO 


2F 


09 


C2D8: 


AE 


EF 


C8 


8E 


27 


DO 


8C 


EF 


43 


CI 10; 


C9 


11 


FO 


28 


C9 


39 


FO 


36 


2E 


C2E0: 


C8 


4C 


AC 


C2 


AD 


00 


DO 


C9 


AD 


C118: 


C9 


20 


FO 


17 


C9 


93 


FO 


31 


89 


C2E8: 


D6 


BO 


B7 


AD 


10 


DO 


DO 


B2 


3A 


CI 20: 


C9 


5F 


FO 


42 


C9 


41 


FO 


49 


CI 


C2F0: 


AD 


Fl 


C8 


69 


18 


38 


E5 


FE 


F7 


C128: 


C9 


CI 


FO 


58 


C9 


58 


FO 


67 


77 


C2F8: 


OA 


A8 


AD 


41 


C7 


91 


FE 


AD 


AO 


C130: 


4C 


B6 


CO 


4C 


82 


C2 


4C 


OA 


DB 


C300: 


27 


DO 


91 


FC 


4C 


A2 


C2 


38 


70 


C138: 


C2 


4C 


46 


C2 


4C 


D4 


CI 


4C 


7F 


C308: 


AD 


01 


DO 


E9 


30 


4A 


4A 


4 A 


80 


C140: 


B2 


CI 


4C 


2E 


C5 


4C 


8F 


C3 


94 


C310: 


8D 


E7 


C8 


OA 


OA 


6D 


E7 


C8 


80 


C148: 


4C 


A4 


C3 


4C 


EA 


C3 


4C 


FC 


41 


C318 


A2 


00 


8E 


E7 


C8 


OA 


OA 


2E 


3C 


C150: 


C3 


4C 


07 


C4 


4C 


58 


C4 


4C 


El 


C320- 


E7 


C8 


OA 


2E 


E7 


C8 


85 


FE 


3E 


C158: 


C6 


C4 


4C 


02 


C6 


4C 


3B 


C6 


47 


C328 


8D 


Fl 


C8 


AD 


E7 


C8 


69 


04 


3C 


C160- 


4C 


76 


C6 


4C 


C5 


C6 


AD 


45 


B5 


C330 


85 


FF 


AD 


10 


DO 


8D 


E9 


C8 


84 


C168 


C7 


49 


01 


8D 


45 


C7 


4C 


B6 


18 


C338 


38 


AD 


00 


DO 


E9 


16 


8D 


E8 


65 


CI 70 


: CO 


AD 


44 


C7 


49 


01 


8D 


44 


07 


C340 


C8 


AD 


E9 


C8 


E9 


00 


4A 


6E 


OC 


C178 


: C7 


FO 


19 


AD 


41 


C7 


8D 


EE 


7D 


C348 


, E8 


C8 


AD 


E8 


C8 


4A 


4A 


65 


53 


CI 80 


: C8 


4C 


B6 


CO 


AD 


43 


C7 


49 


OF 


C350 


FE 


85 


FE 


85 


FC 


A5 


FF 


69 


65 


C188 


: 01 


8D 


43 


C7 


FO 


06 


AD 


27 


ED 


C358 


: 00 


85 


FF 


69 


D4 


85 


FD 


60 


FF 


CI 90 


: DO 


8D 


EF 


C8 


4C 


B6 


CO 


20 


8B 


C360 


: AO 


C8 


88 


DO 


FD 


60 


AE 


42 


72 


C198 


: 44 


E5 


A9 


00 


8D 


15 


DO 


8D 


6D 


C368 


: C7 


20 


60 


C3 


CA 


DO 


FA 


60 


6B 


C1A0 


: 8A 


02 


A9 


OE 


8D 


86 


02 


8D 


88 


C370 


: AO 


28 


A9 


OB 


99 


BF 


DB 


A9 


CC 


C1A8 


: 20 


DO 


A9 


06 


8D 


21 


DO 


20 


E8 


C378 


: AO 


99 


BF 


07 


88 


CO 


00 


DO 


93 


CI BO 


: 74 


A4 


A9 


08 


8D 


EA 


C8 


20 


DC 


C380 


: Fl 


60 


A2 


18 


18 


20 


FO 


FF 


B6 


C1B8 


: 66 


C3 


CE 


01 


DO 


CE 


EA 


C8 


06 


C388 


: AD 


27 


DO 


8D 


86 


02 


60 


EE 


93 


CI CO 


: AD 


EA 


C8 


DO 


F2 


AD 


01 


DO 


65 


C390 


: 21 


DO 


AD 


21 


DO 


29 


OF 


C9 


24 


C1C8 


: C9 


28 


DO 


05 


A9 


E8 


8D 


01 


Bl 


C398 


: OB 


FO 


03 


4C 


B6 


CO 


EE 


21 


6B 


CI DO 


: DO 


4C 


B6 


CO 


AD 


01 


DO 


C9 


AE 


C3A0 


: DO 


4C 


B6 


CO 


20 


07 


C3 


AD 


CD 


C1D8 


: E8 


FO 


27 


A9 


08 


8D 


EA 


C8 


CC 


C3A8 


: 10 


DO 


DO 


09 


AD 


00 


DO 


C9 


AB 


C1E0 


: 20 


66 


C3 


EE 


01 


DO 


CE 


EA 


A5 


C3B0 


: 5E 


FO 


09 


90 


28 


A9 


20 


81 


OD 


C1E8 


: C8 


AD 


EA 


C8 


DO 


F2 


AD 


01 


85 


C3B8 


: FE 


4C 


46 


C2 


A9 


56 


8D 


00 


9 A 


C1F0 


: DO 


C9 


FO 


DO 


05 


A9 


30 


8D 


B9 


C3C0 


: DO 


A9 


01 


8D 


10 


DO 


AD 


01 


59 


C1F8 


: 01 


DO 


A9 


00 


8D 


IB 


DO 


4C 


3A 


C3C8 


: DO 


69 


07 


C9 


FO 


FO 


06 


8D 


49 


C200 


: B6 


CO 


A9 


01 


8D 


IB 


DO 


4C 


E7 


C3D0 


: 01 


DO 


4C 


B5 


C3 


A9 


30 


8D 


CF 


C208 


: DB 


CI 


A9 


08 


8D 


EA 


C8 


20 


B8 


C3D8 


: 01 


DO 


4C 


B5 


C3 


A9 


56 


8D 


FD 


C210 


: 66 


C3 


EE 


00 


DO 


AD 


00 


DO 


78 


C3E0 


: 00 


DO 


A9 


01 


8D 


10 


DO 


4C 


17 


C218 


: FO 


12 


CE 


EA 


C8 


AD 


EA 


C8 


FE 


C3E8 


: 46 


C2 


A9 


5E 


8D 


00 


DO 


A9 


02 


C220 


: DO 


ED 


AD 


00 


DO 


C9 


56 


FO 


6E 


C3F0 


: 00 


8D 


10 


DO 


A9 


30 


8D 


01 


C7 


C228 


: OB 


4C 


43 


C2 


A9 


01 


8D 


10 


CD 


C3F8 


: DO 


4C 


B6 


CO 


AD 


41 


C7 


69 


AD 


C230 


: DO 


4C 


1A 


C2 


AD 


10 


DO 


FO 


A9 


C400 


: 7F 


8D 


41 


C7 


4C 


B6 


CO 


A9 


83 


C238 


: OA 


A9 


00 


8D 


10 


DO 


A9 


5E 


62 


C408 


: 08 


85 


FE 


A9 


04 


85 


FF 


A2 


6A 


C240 


: 8D 


00 


DO 


4C 


B6 


CO 


A9 


08 


14 


C410 


: 17 


AO 


IF 


A9 


20 


91 


FE 


88 


C9 


C248 


: 8D 


EA 


C8 


20 


66 


C3 


CE 


00 


A2 


C418 


: DO 


F9 


18 


A5 


FE 


69 


28 


85 


B6 


C250 


: DO 


AD 


00 


DO 


FO 


12 


CE 


EA 


5C 


C420 


: FE 


A5 


FF 


69 


00 


85 


FF 


CA 


7E 


C258 


: C8 


AD 


EA 


C8 


DO 


ED 


AD 


00 


EE 


C428 


: EO 


FF 


DO 


E5 


4C 


EA 


C3 


EO 


9B 


C260 


: DO 


C9 


OE 


FO 


OB 


4C 


7F 


C2 


93 


C430 


: 40 


FO 


IF 


A9 


00 


8D 


21 


DO 


A9 


C268 


: A9 


00 


8D 


10 


DO 


4C 


56 


C2 


E5 


C438 


: AO 


09 


20 


82 


C3 


A9 


C7 


85 


3F 


C270 


: AD 


10 


DO 


DO 


OA 


A9 


01 


8D 


12 


C440 


: FF 


A9 


8E 


85 


FE 


A9 


00 


8D 


34 


C278 


: 10 


DO 


A9 


4E 


8D 


00 


DO 


4C 


FB 


C448 


: EB 


C8 


20 


68 


CO 


20 


E4 


FF 


4B 


C280 


: B6 


CO 


20 


07 


C3 


AD 


10 


DO 


71 


C450 


: FO 


FB 


20 


70 


C3 


4C 


B6 


CO 


55 


C288 


: DO 


09 


AD 


00 


DO 


C9 


56 


FO 


Fl 


C458 


: AO 


09 


20 


82 


C3 


A9 


C7 


85 


5F 


C290 


: IB 


90 


1C 


AD 


41 


C7 


81 


FE 


8F 


C460 


: FF 


A9 


5E 


85 


FE 


A9 


00 


8D 


24 


C298 


: AD 


27 


DO 


81 


FC 


AD 


45 


C7 


77 


C468 


: EB 


C8 


20 


68 


CO 


AO 


10 


20 


37 


C2A0 


: DO 


42 


AD 


44 


C7 


DO 


IF 


AD 


OB 


C470 


: 82 


C3 


20 


76 


C5 


AD 


F2 


C8 


7C 


C2A8 


: 43 


C7 


DO 


29 


4C 


C4 


CO 


AD 


2D 


C478 


: FO 


43 


A9 


01 


8D 


FO 


C8 


20 


BE 


C2B0 


: 01 


DO 


C9 


49 


90 


08 


Al 


FE 


CE 


C480 


: 5E 


C5 


A2 


01 


20 


C9 


FF 


AD 


DF 


C2B8 


: 8D 


41 


C7 


4C 


C4 


CO 


Al 


FC 


BF 


C488 


: 21 


DO 


20 


D2 


FF 


20 


BD 


C5 


11 


C2C0 


: 8D 


27 


DO 


4C 


C4 


CO 


AC 


41 


06 


C490 


: A2 


18 


AO 


IF 


Bl 


FE 


20 


D2 


AE 
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C498: FF Bl FC 20 D2 FF 88 DO 93 
C4A0: F3 20 CC C5 CA DO EB A9 78 
C4A8: 01 20 C3 FF 20 CC FF A9 24 
C4B0: 2E 8D 00 DO A9 70 8D 01 E5 
C4B8: DO A6 90 DO 06 20 70 C3 EB 
C4C0: 4C B6 CO 4C 2F C4 AO 09 6E 
C4C8: 20 82 C3 A9 C7 85 FF A9 CF 
C4D0: 76 85 FE A9 00 8D EB C8 B7 
C4D8: 20 68 CO AO 10 20 82 C3 39 
C4E0: 20 76 C5 AD F2 C8 FO D5 6D 
C4E8: A9 00 8D FO C8 20 5E C5 IE 
C4F0: A2 01 20 C6 FF 20 E4 FF 80 
C4F8: 8D 21 DO 20 BD C5 A9 18 DD 
C500: 8D EC C8 A9 IF 8D ED C8 50 
C508: 20 E4 FF AC ED C8 91 FE 01 
C510: 20 E4 FF AC ED C8 91 FC 07 
C518: CE ED C8 AD ED C8 DO E8 BB 
C520: 20 CC C5 CE EC C8 AD EC Fl 
C528: C8 DO D8 4C A7 C4 AO 09 FC 
C530: 20 82 C3 AO 00 B9 46 C7 FE 
C538: C9 00 FO 07 20 D2 FF C8 B5 
C540: 4C 35 C5 20 E4 FF C9 00 56 
C548: FO F9 C9 30 90 F5 C9 3A B7 
C550: BO Fl 38 E9 2F 8D 42 C7 DB 
C558: 20 70 C3 4C B6 CO AD F2 11 
C560: C8 AO C8 A2 F3 20 BD FF 07 
C568: A9 01 A 2 08 AC FO C8 20 44 
C5 70: BA FF 20 CO FF 60 A9 00 16 
C578: 8D F2 C8 20 E4 FF FO FB B3 
C580: C9 OD FO 1C C9 14 FO 19 4C 
C588: C9 20 90 EF C9 60 BO EB B9 
C590: AC F2 C8 99 F3 C8 20 D2 42 
C598: FF EE F2 C8 CO OF DO DB BF 
C5A0: 60 AD F2 C8 C9 00 FO D3 F8 
C5A8: A9 9D 20 D2 FF A9 20 20 CC 
C5B0: D2 FF A9 9D 20 D2 FF CE 8C 
C5B8: F2 C8 4C 7B C5 A9 08 85 39 
C5C0: FE 85 FC A9 04 85 FF A9 IF 
C5C8: D8 85 FD 60 18 A5 FE 69 AB 
C5D0: 28 85 FE A5 FF 69 00 85 12 
C5D8: FF 18 A5 FC 69 28 85 FC A7 
C5E0: A5 FD 69 00 85 FD 60 38 OA 
C5E8: A5 FE E9 28 85 FE A5 FF C9 
C5F0: E9 00 85 FF 38 A5 FC E9 25 
C5F8: 28 85 FC A5 FD E9 00 85 B6 
C600: FD 60 20 BD C5 A2 18 AO 5D 
C608: IF Bl FE 8D EC C8 Bl FC C9 
C610: 8D ED C8 88 Bl FE 8D EA 06 
C618: C8 Bl FC C8 91 FC AD EA 7F 
C620: C8 91 FE 88 88 DO ED C8 12 
C628: AD EC C8 91 FE AD ED C8 80 
C630: 91 FC 20 CC C5 CA DO CF DC 
C638: 4C B6 CO 20 BD C5 A2 18 5A 
C640: AO 01 Bl FE 8D EC C8 Bl 87 
C648: FC 8D ED C8 C8 Bl FE 8D 90 
C650: EA C8 Bl FC 88 91 FC AD 77 
C658: EA C8 91 FE C8 C8 CO 20 OF 
C660: DO EB 88 AD EC C8 91 FE 99 



C668: AD ED C8 91 FC 20 CC C5 OE 
C670: CA DO CD 4C B6 CO AO IF 5D 
C678: A2 17 A9 AO 85 FE 85 FC 83 
C680: A9 07 85 FF A9 DB 85 FD BF 
C688: Bl FE 8D EC C8 Bl FC 8D B8 
C690: ED C8 20 E7 C5 Bl FE 8D 53 
C698: E8 C8 Bl FC 8D E7 C8 20 57 
C6A0: CC C5 AD E8 C8 91 FE AD DO 
C6A8: E7 C8 91 FC 20 26 C7 CA CO 
C6B0: DO E3 20 CC C5 AD EC C8 7B 
C6B8: 91 FE AD ED C8 91 FC 88 C4 
C6C0: DO B6 4C B6 CO AO IF A2 6E 
C6C8: 01 20 BD C5 Bl FE 8D EC 98 
C6D0: C8 Bl FC 8D ED C8 20 CC 79 
C6D8: C5 Bl FE 8D E8 C8 Bl FC 3D 
C6E0: 8D E7 C8 20 E7 C5 AD E8 83 
C6E8: C8 91 FE AD E7 C8 91 FC 2F 
C6F0: 20 OB C7 E8 EO 18 DO El 78 
C6F8: 20 E7 C5 AD EC C8 91 FE BA 
C700: AD ED C8 91 FC 88 DO BF OC 
C708: 4C B6 CO 18 A5 FE 69 50 42 
C710: 85 FE A5 FF 69 00 85 FF 29 
C718: 18 A5 FC 69 50 85 FC A5 B4 
C720: FD 69 00 85 FD 60 38 A5 49 
C728: FE E9 50 85 FE A5 FF E9 75 
C730: 00 85 FF 38 A5 FC E9 50 CA 
C738: 85 FC A5 FD E9 00 85 FD CB 
C740: 60 20 05 00 00 00 20 43 29 
C748: 55 52 53 4F 52 20 56 45 AO 
C750: 4C 4F 43 49 54 59 20 28 6E 
C758: 30 2D 39 29 20 00 20 53 AB 
C760: 41 56 45 3E 20 20 20 20 FB 
C768: 20 20 20 20 20 20 20 20 69 
C770: 20 20 20 20 20 00 20 4C 7D 
C778: 4F 41 44 3E 20 20 20 20 OC 
C780: 20 20 20 20 20 20 20 20 81 
C788: 20 20 20 20 20 00 05 20 4E 
C790: 3C 3C 3C 3C 3C 3C 20 44 5E 
C798: 49 53 4B 20 45 52 52 4F D9 
C7A0: 52 20 3E 3E 3E 3E 3E 3E 88 
C7A8: 20 00 FF FO 00 CO 30 00 AA 
C7B0: CO 30 00 CO 30 00 CO 30 83 
C7B8: 00 CO 30 00 CO 30 00 CO 5B 
C7C0: 30 00 CO 30 00 FF FO 12 E4 
C7C8: 90 20 97 20 98 20 9B 20 A5 
C7D0: 05 20 IF 20 9 A 2 9F 20 AF 
C7D8: OD 12 99 20 IE 20 9E 20 AE 
C7E0: 96 20 1C 20 9C 20 81 20 32 
C7E8: 95 20 OD 97 D5 C9 12 D5 CA 
C7F0: C9 92 BO AE 12 BO AE OD 2B 
C7F8: CA CB 12 CA CB 92 AD BD 36 
C800: 12 AD BD OD B3 Bl DD DB A9 
C808: D6 CO B2 AB OD 12 B3 Bl 82 
C810: DD DB D6 CO B2 AB OD Dl 9E 
C818: D7 D8 D3 DA CI 40 2 A OD BO 
C820: A3 B7 B8 12 A2 B9 AF A4 F6 
C828: 20 OD A4 AF B9 A2 12 B8 DO 
C830: B7 A3 20 OD A7 B6 12 Al CA 
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IMPORTANT I Letters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
lIVIl Un IHIl I ! and provide olher essential information on entering Ahoy. 1 programs. Refer to these pages before entering any programs! 



C838: 


B5 


B4 


92 


DC 


A8 


20 


OD 


12 


F9 


C840: 


AA 


B6 


92 


Al 


B5 


B4 


A6 


D9 


CO 


C848: 


12 


D4 


OD 


C5 


C4 


C6 


D2 


CE 


2F 


C850: 


CD 


C8 


12 


C7 


OD 


12 


C5 


C4 


6A 


C858: 


C6 


D2 


CE 


CD 


92 


C7 


12 


C8 


C3 


C860: 


OD 


BA 


CC 


12 


BA 


CC 


BF 


92 


EO 


C868: 


2B 


D4 


12 


D9 


OD 


DO 


CF 


12 


14 


C870: 


DO 


CF 


92 


BF 


2D 


5B 


5D 


OD 


56 


C878: 


12 


A9 


DF 


92 


AC 


BB 


12 


AC 


CD 


C880: 


BB 


92 


3C 


3E 


OD 


DF 


A9 


BC 


9C 


C888: 


BE 


12 


BC 


BE 


92 


28 


29 


OD 


C5 


C890: 


41 


42 


43 


44 


45 


46 


47 


48 


B6 


C898: 


OD 


49 


4A 


4B 


4C 


4D 


4E 


4F 


BB 


C8A0: 


50 


OD 


51 


52 


53 


54 


55 


56 


F4 


C8A8: 


57 


58 


OD 


59 


5A 


24 


27 


2E 


92 


C8B0: 


23 


30 


31 


OD 


32 


33 


34 


35 


11 


C8B8: 


36 


37 


38 


39 


OD 


12 


20 


20 


F6 


C8C0: 


20 


20 


20 


20 


20 


20 


20 


92 


34 


C8C8: 


20 


20 


9A 


53 


43 


52 


45 


45 


17 


C8D0: 


4E 


20 


4D 


41 


47 


49 


43 


20 


CI 


C8D8: 


20 


42 


59 


20 


42 


4F 


42 


20 


A8 


C8E0: 


53 


50 


49 


52 


4B 


4F 


00 


01 


BB 



FROM PAGE 35 

• 5 PRINTCHR$ ( 142) : HS-0 : GOSUB1 100 : P0KE5328 

0.0 
•10 PRINT" [ HOME ][ DOWN ][ DOWN ]"SPC(8)"[c 6] 

[s Q][WHITE][s W][c 6][s Q] [WHITE] [s W][ 

c 6][s Q] [WHITE] [s W][c 6][s Q] [WHITE] [s 
W][c 6][s Q] [WHITE] [s W][c 6][s Q][WHIT 

E][s W][c 6][s Q][WHITE][s W][c 6][s Q][ 

WHITE] [s W][c 6][s Q][WHITE][s W][c 6][s 
Q][WHITE][s W] 

[c 6][s Q][WHITE][s W]" 
•20 PRINTSPC(7)" [WHITE] [s W] [ RVSON ] [ YELLO 

W][sEP] [RVSOFF] [20" "] [RVSON] [c *][RVS0F 

F][c 6][s Q]" 
•30 PRINTSPC(6)"[c 6][s Q] [YELLOW] [RVSON] 

[sEP] [RVSOFF] [20" "] [RVSON] [c *][RVS0F 

F] [WHITE] [s W]" 
•40 PRINTSPC(5)"[WHITE][s W] [YELLOW] [RVSO 

N][sEP] [RVSOFF] [20" "][RVS0N] [c *][R 

VS0FF][c 6][s Q]" 
•50 PRINTSPC(4)"[s Q] [YELLOW] [RVSON] [sEP] 

[3" "][ RVSOFF] [20" "] [RVSON] [3" "][c *][ 

RVSOFF] [WHITE] [s W]" 
•60 PRINTSPC(4)"[WHITE][s W] [YELLOW] [RVSO 

N][4" "][ RVSOFF] [20" "] [RVSON] [4" "][RVS 

0FF][c 6][s Q]" 
•70 PRINTSPC(4)"[s Q] [YELLOW] [RVSON] [4" " 

][ RVSOFF] [20" "] [RVSON] [4" "] [RVSOFF] [WH 

ITE][s W]" 
•80 PRINTSPC(4)" [WHITE] [s W] [YELLOW] [RVSO 

N][4" "][ RVSOFF] [20" "][RVS0N][4" "][RVS 



0FF][c 6][s Q]" 

•90 PRINTSPC(4)"[c 6][s Q] [YELLOW] [RVSON] 
[ RVSOFF ] [sEP][ 22" [c T]"][c *][RVSON] 
[RVSOFF] [WHITE] [s W]" 

•100 PRINTSPC(4)"[WHITE][s W] [YELLOW] [sEP 
][26"[c T]»][c *][c 6][s Q]" 

•110 PRINTSPC(5)"[WHITE][28"[s Z]"]" 

•120 PRINTSPC(5)"[WHITE][s Z][s Z][RED][R 
VSQN][3" "] [RVSOFF] [WHITE] [s Z][s Z][RED 
][RVS0N] [RVSOFF] [WHITE] [s Z][s Z][RED][ 
RVSON] [RVSOFF] [WHITE] [s Z][RED] [RVS0N][ 
4" "] [RVSOFF] [WHITE] [s Z] [RVSON] [RED] [R 
VSOFF] [WHITE] [s Z][s Z] [RED] [RVSON] [RVS 
OFF] [WHITE] [s Z 
] [RED] [RVSON] [4" "] [RVSOFF] [WHITE] [s Z][ 

3 Z]" 

•130 PRINTSPC(5)"[WHITE][s Z][s Z] [RVSON] 
[RED] [RVSOFF] [WHITE] [s Z][s Z] [RED] [RVS 
ON] [RVSOFF] [WHITE] [s Z] [RED] [RVSON] [RV 
SOFF] [WHITE] [s Z][s Z] [RVSON] [RED] [RVSO 
FF] [WHITE] [s Z] [RVSON] [RED] [RVSOFF] [WHI 
TE][4"[s Z]"] [RVSON] [RED] [RVSOFF] [WHITE 
][s Z][RED][RVS 

ON] [RVSOFF] [WHITE] [s Z][s Z] [RED] [RVSON 
] [RVSOFF] [WHITE] [ 5" [s Z]"]" 

•140 PRINTSPC(5)" [WHITE] [s Z][s Z][RED][R 

VSON] [RVSOFF] [WHITE] [s Z][s Z][RED][RVS 

EK ON] [WHITE] [RVSOFF] [s Z][RED][RVSON] [WH 

ITE] [RVSOFF] [s Z][s Z] [RED] [RVSON] [WHIT 

E][RVSOFF][s Z] [RED] [RVSON] [WHITE] [RVSO 

FF][4"[s Z]"] [RED] [RVSON] [WHITE] [RVSOF 

F][3"[s Z]"][RE 

D][RVS0N][4" "] [WHITE] [RVSOFF] [s Z][s Z] 
tt 

•150 PRINTSPC(5)"[WHITE][s Z][s Z][RED][R 
AE VSON] [WHITE] [RVSOFF ][s Z][s Z] [RED] [RVS 
ON] [WHITE] [RVSOFF] [s Z] [RED] [RVSON] [WH 
ITE] [RVSOFF] [s Z][s Z][RED][RVSON] [WHIT 
AC E][RVSOFF][s Z] [RED] [RVSON] [WHITE][RVSO 
FF][4"[s Z]"] [RED] [RVSON] [WHITE] [RVSOFF 
][s Z][RED][RVS 
LO ON] [WHITE] [RVSOFF] [ 5" [s Z]"] [RED] [RVSON 
] [RVSOFF] [WHITE] [s Z][s Z]" 
■160 PRINTSPC(5)" [WHITE] [s Z][s Z][RED][R 
PO VS0N][3" "] [WHITE] [RVSOFF] [s Z][s Z][RED 
] [RVSON] [4" "] [WHITE] [RVSOFF] [s Z][RED][ 
RVSON] [4" "] [WHITE] [RVSOFF] [s Z][RED][RV 
BK SON] [WHITE] [RVSOFF] [s Z][s Z][RED][RVSO 
N] [WHITE] [RVSOFF] [s Z] [RED] [RVSON] [4" " 
] [WHITE] [RVSOFF 
LG ][s Z][s Z]" 

•170 PRINTSPC(5)"[WHITE][28"[s Z]"]" 
•180 PRINTSPC(5)"[ YELLOW] [s 0][4"[c T]"][ 
01 s P] [CYAN] SHOOTING GALLERY [YELLOW] [a 0][. 
4"[c T]"][s P]" 
•190 PRINTSPC(5)"[c G][4" "][s N][16"[c T 



LG 



KM 

DI 
IK 



GL 



FE 



JF 



MK 



DH 
IK 



JO 
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]"][s M][4 M "][c M]" 01 

200 PRINTSPC(5)"[ YELLOW] [s L][3"[c §]"][ 
s N][RVS0N][18" "][RVS0FF][s M][3"[c @]" 
][s @] n ON 

210 PRINTSPC( 8)"[ YELLOW] [c M] [RVS0N][20 M 
[c U]"][RVS0FF][c G]" CM 

215 PRINTSPC (8)"[ YELLOW] [c M] [RVS0N][20 M 

"][RVSOFF][c G]" OM 

220 F0RD1=12288T012350:READS1:P0KED1,S1: 
NEXT JM 

230 F0RD2=12352TQ1 24 14 : READS2 : P0KED2 , S2 : 
NEXT DF 

240 F0RD3=12416T012478:READS3:P0KED3,S3: 
NEXT PE 

250 V=53248 : S=54272 : P0KEV+39 ,13: POKEV+40 
,7:P0KEV+21,3:P0KES+24,15:P0KES,220 IK 
255 M=56320 : 0=65520 :SC=0:TG=0:B=0:R=0 BP 
260 POKES+1 , 68 : POKES+5 , 15 : P0KES+6 , 215 : PO 
KES+7,120:P0KES+8,100:P0KES+12,15 KP 
270 P0KES+13,215:P1=192:P2=193:P3=195:X1 
=100:Y1=100:X2=70:H=2 JO 

280 Y2=INT(RND(1)*40)+70:R=R+1:P0KEV+21, 
3:H=H+.4:IFH>33THENH=H-2.4 GA 

285 F0RX2=70T0255STEPH GE 

290 POKE2040,P1 BD 

300 P0KE2041 , P2 : P2=P2+1 : IFP2>194THENP2=1 
93 IC 

310 G0SUB500 CN 

320 IFJV=10RJV=50RJV=9THENY1=Y1-4:IFY1<6 
8THENYl=Yl+4 HP 

330 IFJV=20RJV=60RJV=10THENY1=Y1+4:IFY1> 
118THENYl=Yl-4 NK 

340 IFJV=40RJV=50RJV=6THENXl=Xl-4 :IFX1<9 
0THENXl=Xl+4 LL 

350 IFJV=80RJV=90RJV=10THENX1=X1+4:IFX1> 
240THENXl=Xl-4 NO 

355 IFFR=0ANDPEEK(V+30)AND1=1THEN600 BO 
360 P0KEV,X1:P0KEV+1,Y1 GE 

370 P0KEV+2,X2:P0KEV+3,Y2 FL 

400 NEXTX2:IFR>3THENP0KEV+21,1:G0T0900 mp 

410 GOT0280 CG 

500 JV=PEEK(M) LN 

510 FR=JVAND16 AN 

520 JV=15-(JVAND15) GH 

530 RETURN IM 

600 P0KEV+21,1:P0KES+4,129:P0KES+4,128:R 
=0 IK 

605 IFN0TPEEK(V+30)AND1=1THEN610 ME 
610 P0KEV+2,70:P0KEV+3,90 01 

630 SC=SC+1 : IFSC=10ORSC=20ORSC=30ORSC=40 
ORSC=500RSC=600RSC=700RSC=80THEN700 OH 
650 GOT0280 CG 

700 FORL=1T010:W=0:Y=INT(RND(1)*12)+12:X 
=INT(RND(l)*5)+5 NB 

701 P0KE783,PEEK(783)AND254;P0KE781 t X:P0 
KE782, Y:SYSO: PRINT" [ RED] [s W]" FE 

705 GOSUB500 CN 

706 IFJV=10RJV=50RJV=9THENY1=Y1-4:IFY1<6 



8THENYl=Yl+4 HP 

•707 IFJV=20RJV=60RJV=10THENY1=Y1+4:IFY1> 
118THENYl=Yl-4 NK 

•708 IFJV=40RJV=50RJV=6THENXl=Xl-4: IFXK9 

r/THENXl=Xl+4 LL 

• 709 IFJV=80RJV=90RJV=10THENXl=Xl+4 : IFX1> 

24r/THENXl=Xl-4 NO 

•720 IFFR=OANDPEEK(V+31)AND1=1THEN800 KP 

•730 W=W+1 EF 

•740 IFSC<40ANDW=30THENSYS0: PRINT" ":NEXT 

L: PRINT" " GA 

•745 IFSC=>40ANDW=25THENSYS0: PRINT" ":NEX 

TL: PRINT" " 01 

•750 P0KEV,X1:P0KEV+1,Y1 GE 

•760 IFL<11THEN705 EB 

•780 PRINT" ":GOT0280 GN 

•800 P0KES+4,33:P0KES+4,32:P0KE783,PEEK(7 

83 )AND254:P0KE781,X:P0KE782,Y:SYS0: PRINT 

" " JA 

•805 TG=TG+50 AC 

•810 IFN0TPEEK(V+31)AND1=1THENNEXTL AP 

•820 P0KE783,PEEK(783)AND254:P0KE781,X:P0 

KE782,Y:SYS0: PRINT" ":G0T0280 01 

•900 P0KEV+21,1:CS=SC*25+TG: PRINT" [ HOME ][ 

3"[D0WN]"]"SPC(14)"[CYAN]SC0RE:"CS LH 

•905 IFCS>HSTHENHS=CS AE 

•910 F0RL=1T010 MO 

•920 PRINT"[H0ME][4"[D0WN]"]"SPC(14)"[c 8 

][RVS0N]GAME[RVSOFF][3" "] [RVS0N]0VER[RV 

S0FF]":F0RG=1T050:NEXTG AE 

•930 PRINT"[H0ME][4"[D0WN]"]"SPC(14)"[c 8 

]GAME[3" "]0VER":F0RG=1T050:NEXTG BK 

•940 NEXTL:PRINT"[H0ME][8"[D0WN]"]"SPC(11 

)"[WHITE]HIGH SCORE: "HS LF 

•945 Y2=INT(RND(l)*25)+75 MI 

•950 FORX2=75T0255STEP5 GA 

•955 P0KEV+2,X2:P0KEV+3,Y2 FL 

•960 P0KE2041.193 DB 

• 970 IFA$=""THENPRINT" [ HOME ] [ 6" [ DOWN ] " ] "S 

PC(9)"[WHITE]HIT ANY KEY TO START" :FORG= 

1T050:NEXT FD 

•980 PRINT"[H0ME][6"[D0WN]"]"SPC(9)"[PURP 

LE]HIT ANY KEY TO START" :F0RG=1T050: NEXT LI 

•985 P0KE2041.194 DA 

•990 GETA$:IFA$=""THENG0T01000 DI 

•1000 IFA$O""THEN1020 AF 

•1010 NEXTX2:GOT0945 HG 

•1020 PRINT"[H0ME][3"[D0WN]"]"SPC(14)"[13 

" "]" DE 

•1030 PRINT"[H0ME][4"[DOWN]"]"SPC(14)"[ll 
ii iijii DE 

•1040 PRINT"[HOME][6"[DOWN]"]"SPC(9)"[20" 

"]" JK 

•1045 PRINT"[H0ME][8"[D0WN]"]"SPC(11)"[17 
n ..].. ^ 

•1050 G0T0255 CG 

•1100 P0KE53281,7:P0KE53280,0 CI 

•1120 PRINT" [ CLEAR] [ HOME] "SPC( 13) "[RED] [3 
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IMPORTANT I otters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain ihese codes 
IIVIl Ull I HIM I ! and provide other essential information on entering Ahoy.' programs. Refer to these pages before entering any programs! 

SCREEN DUMPING 

FROM PAGE 73 VERSION I 



"*"][BLACK]WELC0ME[RED][3"*"]" JK 
■1140 PRINT"[D0WN]"SPC(14)"[BLUE]DUCK— SH 

00T" PN 

•1160 PRINTSPC(8)"[BLUE]A SHOOTING GALLER 

Y GAME [DOWN]" HI 

•1180 PRINTSPC(5)"[BLACK]DUCKS ARE WORTH 

25 PTS EACH [DOWN]" HE 

•1200 PRINTSPC(5)"WHEN YOU SHOOT DOWN 10 

DUCKS [DOWN]" CC 

•1210 PRINTSPC(5)"Y0U ENTER A TIMED TARGE 

T ROUND [DOWN]" BK 

•1220 PRINTSPC( 5) "TARGETS ARE WORTH 50 PT 

S EACH [DOWN]" NC 

•1230 PRINTSPC(5)"THE MORE DUCKS YOU [RED 

] SHOOT [BLACK] DOWN [DOWN]" GJ 

•1240 PRINTSPC(5)"THE [RED] FASTER [BLACK] 

THEY WILL GO [DOWN]" MF 

•1241 PRINTSPC(5)"WHEN YOU MISS 4 DUCKS I 

N A R0W[D0WN] n NN 

■1242 PRINTSPC(5)"THE GAME IS 0VER[D0WN]" JE 
•1245 PRINTSPC(5)"USE JOYSTICK—PORT #2" GJ 
•1250 PRINT"[H0ME][23"[D0WN]"]"SPC(8)"[GR 

EEN] PRESS ANY KEY TO BEGIN" :F0RL=1T090:N 

EXT FI 

•1255 PRINT"[H0ME][23"[D0WN]"]"SPC(8)"[YE 

LLOW]PRESS ANY KEY TO BEGIN" :F0RL=1T010: 



NEXT 
•126 
•127 
•130 
•200 
•2010 
•202 
•203 
•204 
•205 
•206 
•207 
•208 
•209 
•210 
•211 
•212 
■213 
•214 
•215 
•216 
•217 
•218 
•219 
•220 
•221 
•222 
•223 



HH 

GETA$:IFA$=""THEN1250 KE 

PRINT" [CLEAR]" :P0KE5328 1,6 KA 

RETURN IM 

DATA 0,0,0,0,0,0,0,0 FG 

DATA 0,0,0,0,0,0,0,0 FG 

DATA 0,0,0,0,0,0,40,0 HH 

DATA 0,146,0,1,17,0,1,85 MC 

DATA 0,1,17,0,0,146,0,0 LK 

DATA 40,0,0,0,0,0,0,0 FP 

DATA 0,0,0,0,0,0,0,0 FG 

DATA 0,0,0,0,0,0,0 PD 

DATA 0,0,0,0,0,0,0,0 FG 

DATA 0,0,0,0,0,0,0,0 FG 

DATA 0,160,0,1,80,0,1,31 NJ 

DATA 0,2,213,0,5,0,2,169 AH 

DATA 0,11,233,64,53,86,32,238 BH 

DATA 236,32,21,64,32,5,128,64 BB 

DATA 0,85,0,0,0,0,0,0 KG 

DATA 0,0,0,0,0,0,0 PD 

DATA 0,0,0,0,0,0,0,0 FG 

DATA 0,0,0,0,0,0,0,0 FG 

DATA 0,160,0,1,80,0,1,31 NJ 

DATA 0,2,240,0,5,14,2,169 DL 

DATA 0,11,233,64,53,86,32,239 BG 

DATA 188,32,21,64,32,5,128,64 KH 

DATA 0,85,0,0,0,0,0,0 KC 

DATA 0,0,0,0,0,0,0 PD 



1 REM BEFORE LOADING THIS PROGRAM YOU MU 
ST P0KE44, 64 :P0KE1 6384,0: NEW KA 

20 B=8192 :P0KE53272,24 CN 

25 POKE 53265, PEEK (53265) OR 32 AL 
30 FOR 1=0 TO 7999 : POKE B+1,0 : NEXT GC 
40 FOR J=1024 TO 2043 :P0KEJ,1 :NEXT PO 
100 FOR X = TO 319 STEP .4 BO 

105 Y=INT(100-(100*COS(X/05))*EXP(-X/240 
)) FJ 

150 CHAR=INT(X/8) PI 

155 R0W=INT(Y/8) AG 

160 LINE=Y AND 7 BC 

165 BYTE = B + R0W*320 + CHAR*8 + LINE AF 
170 BIT=7-(X AND 7) PJ 

175 POKE BYTE, PEEK (BYTE) OR (2[UPARR0W] 
BIT) DO 

180 NEXT X NK 

190 GET A$: IF A$OCHR$(133) THEN 190 IH 
205 0PEN4,4,5:CMD4:PRINT CHR$(10) CHR$(1 
0) HO 

210 PRINT CHR$ ( 27) "@": PRINT CHR$(27) CHR 
$(51) CHR$(16) AF 

215 PRINT" [10" "]"; FG 

220 PRINT"[54"-"]"CHR$(10) JK 

225 F0RL=0 TO 24:PRINT CHR$(27) CHR$(76) 

CHR$(249) CHR$(2); FK 

230 FOR 1=1 TO 119:PRINT CHR$(0); :NEXTI: 
PRINT CHR$(245); LD 

235 FOR CR = TO 39: EI 

240 FOR P - TO 7:PBYT=0:E=2[UPARR0W]( 
7-P) HE 

245 FOR LC = TO 7 NM 

250 PBYT = PBYT-((PEEK(B+LC) AND E)>0)*2 
[UPARR0W](7-LC) PI 

255 NEXT LC: PRINT CHR$(PBYT) CHR$(PBYT) 
; AM 

260 NEXT P : B=B+8 CN 

265 NEXT CR: PRINT CHR$(245) CHR$(10); EP 
270 NEXT L: PRINT CHR$(27)"@" KP 

275 PRINT" [10" "]"; FG 

280 PRINT" [54"-"]" ON 

285 PRINT#4,:CL0SE4 AO 

290 END IC 

VERSION II 

•1 REM BEFORE LOADING THIS PROGRAM YOU MU 
ST P0KE44, 64 :P0KE1 6384,0: NEW KA 

•5 SO = PEEK(46)*256 + PEEK (45) : SI = SO 
-210 : S2 m SO-150 : B = 8192 JL 

•30 SYS SI CF 

•100 FOR X - TO 319 STEP .4 BO 



All the programs in this issue of Ahoy! are available on disk or cassette. See page 53. 
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line codes. Do not enter them! Pages 85 and 86 explain these codes 
and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 



IMPORTANT I Le,ters on wn ' te background are Bug Repellent 

105 Y=INT(100-(100*C0S(X/05))*EXP(-X/240 
)) FJ 

150 CHAR=INT(X/8) PI i 

155 R0W=INT(Y/8) AG ' 

160 LINE=Y AND 7 BC ! 

165 BYTE = B + R0W+320 + CHAR*8 + LINE AF ' 
170 BIT=7-(X AND 7) PJ • 
175 POKE BYTE, PEEK (BYTE) OR (2[UPARR0W] 
BIT) DO ! 
180 NEXT X NK ! 
190 GET A$: IF A$OCHR$(133) THEN 190 IH 
195 POKE 251,0 : POKE 252,32 KO 
200 FOR I = TO 7 : POKE 2048+1, 2 [UPARR 
0W]I : NEXT FP • 
205 0PEN4,4,5:CMD4:PRINT CHR$(10) CHR$(1 

0) HO 
210 PRINT CHR$( 27 )"@": PRINT CHR$(27) CHR 

$(51) CHR$(16) AF 

215 PRINT" [10" "]"; FG • 

220 PRINT"[54"-"]"CHR$(10) JK \ 
225 F0RL=0 TO 24: PRINT CHR$(27) CHR$(76) 

CHR$(250) CHR$(2); IA • 

230 SYS S2 CE 

265 PRINT CHR$(245) CHR$(10); PC • 

270 NEXT L: PRINT CHR$(27)"@" KP 

275 PRINT" [10" "]"; FG 

280 PRINT" [54"-"]" ON ■ 

285 PRINT#4,:CL0SE4 AO • 

290 END IC • 

Machine code to be appended to VERSION II 
(see article for instructions) 

169 24 141 24 208 169 32 13 17 208 141 17 
208 169 32 133 252 160 132 251 169 145 
251 200 208 251 166 252 232 134 252 224 64 ■ 
208 242 169 4 133 252 132 251 169 1 145 

251 200 208 251 166 252 232 134 252 224 8 • 
208 242 96 162 169 32 210 255 232 224 • 
120 208 246 169 245 32 210 255 169 141 8 
8 141 9 8 141 10 8 141 11 8 169 7 56 237 9 
8 170 189 8 141 12 8 169 7 56 237 10 8 

170 189 8 141 13 8 172 10 8 177 251 45 
12 8 240 10 173 13 8 24 109 11 8 141 11 8 
174 10 8 232 142 10 8 224 8 208 212 173 11 • 
8 32 210 255 32 210 255 169 141 10 8 141 ■ 
11 8 174 9 8 232 142 9 8 224 8 208 171 169 ■ 
141 9 8 169 8 24 101 251 133 251 144 5 

166 252 232 134 252 174 8 8 232 142 8 8 
224 40 208 141 96 




FROM PAGE 56 
•2 GOT085 
•4 P=-22:GOT039 
•5 P«+22:GOT039 
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-7 P— 1:G0T039 
•8 P»-23:GOT039 
■9 P-+21-.GOT039 
-11 P=+1:G0T039 
-12 P=-21:GOT039 
■13 P=+23:G0T039 



AK 
FB 
GG 

BF 

EL 
FE 



PL 
GG 

FB 



15 P0KEE-2, 241: 0=0+7 :P0KEE, 241 :F=F+1: IFF 
=ZTHEN52 ED 

16 P0KEE,135:P0KEE-2,0:GOT048 CP 

30 PRINT" [ CLEAR ]":V=36878:POKEV, 15 :P0KEV 
-9,255:P0KEV+1,8:E=36876:A=7911:B=30720: 
Z=Z+5:P=0 FI 

31 TT=INT(RND(1)*400)+7746:P0KETT,3 EP 

32 F0RT=1T0Z+EC*2:P0KEE,135:TT=INT(RND(1 
)*418)+7746:P0KETT+B,4:P0KETT,2:P0KEE,0: 
NEXT GI 

34 F0RT=1T0Z:P0KEE,241:TT=INT(RND(1)*418 
)+7746:IFPEEK(TT)=lTHENF=F+l BD 

35 POKETT+B,5:POKETT,l:P0KEE,0:NEXT IJ 

36 FORT=1T0500:NEXT : POKEE, 135 : POKEE-l ,13 

5 OB 

38 POKEA+B, 2: POKEA,.: POKEG, 32 :D=PEEK( 828 
):SYS831:0NDG0T04,5,6,7,8,9,10,11,12,13 AJ 

39 G=A : A= A+P : PRINT" [ HOME ] [ WHITE ] [ R VSON ] S 
C0RE=" ; ; " CL0NES=" ; S : Q=PEEK ( A ) : IFQ=1THE 
N15 LJ 

41 IFQ-2THEN60 NO 

42 IFQ=3THEN56 NG 

43 IFA>8142THENA=A-484 GL 

44 IFA<7724THENA=A+484 IB 
48 GOT038 PB 

52 POKEG , 32 : POKEA , . : POKEA+B , 2 : POKEE-2 , 24 
1 : F0RT=1T0500 : NEXT : POKEE-l ,241: F0RT=1T05 
00: NEXT 01 

53 RL=RL+1 : POKEE, 241 :F0RT=1T0900: NEXT: PO 
KEE , . : POKEE-2 , . : POKEE-l , . MP 

54 S=S+1:P=0:F=0:G0T030 DP 

56 POKEE, 0: POKEG, 32: POKEA,.: POKEA+B, 2 :P0 
KEE, 155 :G0SUB59: POKEE, 0:GOSUB59: POKEE, 20 

MI 

57 GOSUB59: POKEE, 0:GOSUB59: POKEE, 241 :GOS 
UB59: POKEE, 0:G0SUB59: POKEE, 1 35 :0=0+F*EC: 
P=0 DH 

58 GOT043 PB 

59 F0RT=1T0100:NEXT: RETURN HC 

60 POKEG , 32 : POKEA , 4 : POKEA+B , 7 : F0RT=1 5T00 
STEP-1 : POKEV , T : P0KEE+1 , 225+T : NEXT : P0KEE+ 
1,0 PA 

62 S=S-1:IFS=0THEN65 CE 

63 P=0:F=0:Z=Z-5:GCT030 BG 

65 O=O+RL*50:PRINT"[HOME][ll"[DOWN]"] [5 
"[ RIGHT ]"][RVS0N][ YELLOW] GAME OVER [BLACK 

] " : F0RT-1TO10O0 : NEXT : IFO>LTHENL=0 IG 

66 P0KE36879 , 24 : PRINT" [ CLEAR ] [ DOWN ] [ RVSO 
N]Y0UR[DOWN][4"[LEFT]"]SC0RE= M ;0:PRINT"[ 
3"[DOWN]"][RVSON]HIGH[DOWN][4"[LEFT]"]SC 



ORE=";L FJ 

•67 IF0<LANDL-0<50THENPRINT" [DOWN] [DOWN] [ 
RVSON] CLOSE, BUT NOT CLOSE[6" "] ENOUGH." BM 

•68 PRINT" [DOWN] [DOWN] [RVSON] YOU GOT TO S 
CREEN" ; RL : PRINTRL*50 ; " [ RVSON ] BONUS . " : PRI 
NT"[3"[DOWN]"][RVSON]HIT A KEY TO TRY AG 
AIN" NP 

•69 GETA$:IFA$=""THEN69 GE 

• 70 P=0:O=0:F=0:Z=0:G0TO99 J J 

• 72 P0KE36879 , 8 : PRINT" [ CLEAR ] [ 3" [ DOWN ] " ] [ 
8" [RIGHT]"] [RVSON ][YELLOW]S[RED]P[GREEN] 
E[CYAN]E[PURPLE]D[YELLOW]Y":PRINT"[DOWN] 
[ PURPLE ][ 8" [ RIGHT ]"]BY[ DOWN] [LEFT] [LEFT] 
KEVIN[D0WN][5"[LEFT]"]DEWEY" MJ 

• 73 P0KE36869 , 240 : PRINT" [ DOWN ] [ GREEN ] SKIL 
L LEVEL(1-15)";:INPUTEC FF 

•74 IFEC<10REC>15THEN72 EE 

•75 GOT030 OJ 

•85 P0KE52,28:P0KE56,28:CLR:F0R A=828 TO 
881:READB:P0KEA,B:NEXT AC 

•86 F0RI=7168T07679:P0KEI,PEEK(I+25600):N 
EXT:F0RC=7168T07208:READB:P0KEC,B:NEXT MH 

•90 DATA 0,0,0,169,127,141,34,145,169,0,1 
41,19,145,173,32,145,74,74,41,32,141,62, 
3 EL 

•91 DATA 173,17,145,41,28,13,62,3,74, 74, 
73,15,141,60,3,173,17,145,41,32 MD 

•92 DATA 73,32,141,61,3,169,255,141,34,14 
5,96 PJ 

•93 DATA60, 126, 219, 255, 231, 189, 66, 60, 255, 
126,90,255,165,189,129,255,255,90,126,23 
1,255 IH 

•94 DATA129, 189, 255, 255, 145, 145, 159, 249,1 
37,137,255,137,74,44,224,7,52,82,145,0,0 JN 

•99 S=7:RL=1:G0T072 BI 

MAPPING 4.4 

FROM PAGE 45 

•1 REM ********************************* dn 

•2 REM * MAPPING 4.4 * HN 

•3 REM * BY * IA 

•4 REM * J.M.MARCANO * PB 

*5 REM ********************************* pN 

•6 REM 8/29/84 AN 

•10 REM ****** CENTRAL SECTION ****** II 
•15 POKE53280,8:POKE53281,0:D$="? ? ?" NF 
•20 PRINTCHR$(147):F0RI=1T011:PRINT:NEXT: 

PRINTCHR$(158)SPC(17)"WAIT" GA 

•25 FOR AD=828T0888:READVA:P0KEAD,VA:NEXT 

AD GM 

•30 F0RI=49152T049543:READC:P0KEI,C:NEXT HE 
•40 SYS49309:SYS49385:P0KE81,197:SYS49512 

:GOSUB160:SYS49152:GOSUB100:GOSUB350 EA 
•50 REM ** ALL THE FUNCTIONS COME HERE ** LL 
•55 DEFFNF(X.)=SIN(X) EN 

•60 G0SUB210 CD 

• 70 0NKGOTO260 , 790 , 490 , 280 ,810, 830 , 850 , 60 LL 



100 REM *** DIRECTORY FOR F'S KEYS **** FK 
110 PRINTCHR$(19)CHR$(30):F0RI=1T020:PRI 
NT: NEXT OP 

115 PRINT" FltGRAPHIC CLEANER[7" "]F2:ST 
ORE(M+)" DB 

120 PRINT" F3: RANGE CHANGER[9" "]F4:RECA 
LL" LD 

130 PRINT" F5: FUNCTION CHANGER [6" "]F6:C 
LEAR MRY" NK 

140 PRINT" F7: COMPARE WITH MRY [6" "]F8:N 
DEFINED"CHR$(19)CHR$(154) HL 

150 RETURN IM 

160 REM **TRANSFER THE CHAR. TO SCREEN** BI 
170 C=55341:J=1069:L=106 FH 

180 F0RI=0T014;P0KEJ+I,L:P0KEC+I,1:L=L+1 
:NEXT BA 

190 C=C+40:J=J+40:IFJ<1464THEN180 ML 
200 RETURN IM 

205 REM *** SET UP ERROR TRAPPING IN 870 
*** CL 

206 T$="GOTO"+STR$(870)+CHR$(0) MJ 

207 FOR AD=1 TO LEN(T$) :P0KE891+AD,ASC(M 
ID$(T$,AD,1)):NEXTAD PG 

208 SYS875 EF 

209 RETURN IM 

210 REM ****** INPUT SUBROUTINE ****** BK 
215 GOSUB205 CJ 
220 GETK$:IFK$=""THEN220 GH 

230 IFK$=CHR$(133)0RK$=CHR$(134)0RK$=CHR 
$(135)ORK$=CHR$(136)THEN240 PH 

231 IFK$=CHR$(137)0RK$=CHR$(138)0RK$=CHR 
$(139)0RK$=CHR$(140)THEN240 IG 
235 GOT0220 BM 
240 K=ASC(K$)-132 NL 
250 RETURN IM 
260 REM **CLEAR CHAR.** (Fl ROUTINE) MI 
270 SYS49385:GOT060 MA 
280 REM **CLEAR OPERATION** (F7 ROUTINE) ON 
285 ONNGOT0290,295 NP 
290 P0KE81,202:SYS49512:P0KE81,202:SYS49 
416:POKE81,197:SYS49464:N=2:G0TO60 JB 
295 SYS49385 : P0KE81 , 202 : S YS49464 : N=l : GOT 
060 HM 
300 REM *** CLEAR DATA AREA *** CG 
310 FORJ=1064T01424STEP40 NL 
320 F0RI=J+23T0J+39 : POKEI , 32 : NEXTI : NEXTJ 

: RETURN KF 

330 REM *** CLEAR WORK AREA *** GD 
340 F0RI=1544T01743: POKEI ,32: NEXT: RETURN CI 
350 REM *** SET UP DATA AREA *** FM 
360 PRINTCHR$(19)CHR$(159):PRINT:PRINTTA 
B(23)"XrW;X0 GM 

370 PRINTTAB(23)"XM=";XM NO 

380 PRINTTAB(23)"YrW;YO LI 

390 PRINTTAB(23)"YM= ,, ;YM OK 

400 PRINT :PRINTTAB( 23) "PIXELS: ";DX BA 
410 PRINT :PRINTTAB( 23) "DATA FROM "CHR$(1 
54);D$ FD 
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420 RETURN IM 

430 REM *** SET UP THE FUNCTION AREA *** CN 
440 FORI=OT039:POKE1 784+1, 32: NEXT JM 
450 PRINTCHR$(19)CHR$(159):F0RI=1T018:PR 
INT: NEXT: PRINT" Y=";A$ KH 

460 RETURN IM 

470 REM **** POSITION ON WORK AREA **** BA 
480 PRINTCHR$( 19) :F0RI=1T013: PRINT :NEXT: 
RETURN FI 

490 REM **INPUT FUNCTION **(F5 ROUTINE) OD 
495 GOSUB330:G0SUB470 IH 

500 PRINTCHR$( 159) "ENTER THE 2DN MEMBER 
OF THE F'N ON X " GE 

505 INPUTA$:IFLEN(A$)<29THEN510 IH 

506 PRINT"MUST HAS LESS THAN 29 CHARACTE 
RS" : F0RI=OT01000 : NEXT: GOT0495 FH 
510 GOSUB330:GOSUB430:PRINTCHR$(19)CHR$( 
144):F0RI=1T014:PRINT:NEXT:PRINT; NE 
520 PRINT"55D[s E]FNF(X)=";A$ MA 
530 PRINT"RUN50 BO 
550 P0KE631,13:P0RE632,13:P0KE633,13:P0K 
E198,3:END IL 
560 REM ***INPUT RANGE SUBROUTINE*** CP 
570 PRINTCHR$ ( 154) : G0SUB330 : GOSUB470 : INP 
UT"XO,XM";XO,XM OJ 
580 IFX0<XMTHEN600 LA 
590 PRINT"MUST BE X0<XM":FORI=0TO1000:NE 
XT:G0T0570 AH 
600 G0SUB330 : G0SUB470: INPUT"YO , YM" ; YO , YM KE 
610 IFY0<YMTHEN630 LH 
620 PRINT"MUST BE Y0<YM":FORI=OT01000:NE 
XT:GOT0600 AF 
630 GOSUB330:GOSUB470: INPUT" AMOUNT OF PI 
XELS FOR THE GRAPHIC" ;DX AK 
635 IFDX>0THENGOSUB330: RETURN KL 
640 PRINT"MUST BE >0":FORI=0TO1000:NEXT: 
GOT0630 NH 
650 REM **** FUNCTION EVALUATER **** ME 
660 IFSGN(X0)=SGN(XM)THEN670 NP 
665 X=-X0*119/(XM-X0) :F0RY=0T079STEP5:G0 
SUB750:NEXT ID 
670 IFSGN(Y0)=SGN(YM)THEN700 AB 
675 Y=Y0*79/(YM-Y0)+79:F0RX=0T0119STEP5: 
GOSUB750:NEXT KG 
700 SX=(XM-XO)/DX ND 
710 FORI=X0TOXMSTEPSX ME 
720 F=FNF(I):IFF<Y00RF>YMTHEN740 CH 
730 X=(I-X0)/(XM-X0)*119:Y=(Y0-F)/(YM-Y0 
)*79+79:G0SUB750 LA 
740 NEXT: RETURN EJ 
750 REM ****** GRAPHIC MAKER ****** FJ 
760 R0=INT(Y/8):CH=INT(X/8):LI=YAND7 BN 
770 BIT=7-(XAND7) :BYT=13136+R0*120+CH*8+ 
LI:P0KEBYT,PEEK(BYT)0R(2[UPARR0W]BIT) LC 
780 RETURN IM 
790 REM ** INPUT RANGE ROUTINE** (F3-R0UTI 
NE) PI 
800 D$="USER" : GOSUB560 : GOSUB300 : GOSUB650 



:GOSUB350:GOTO60 BN 

810 REM **** STORE (F2-R0UTINE) **** KA 
815 P0KE81.197 MC 

820 SYS49416:X1=X0:X2=XM:Y1=Y0:Y2=YM:DM= 
DX:POKE55296,5:POKE1024,13:GOTO60 MF 
830 REM **** RECALL **** (F4-R0UTINE) LH 
840 P0KE81 , 197 : SYS49464 : IFX1=X2THENG0T06 
NA 

842 D$="MEM0RY" : G0SUB300 : X0=X1 : XM=X2 : Y0= 
Y 1 : YM=Y2 : DX=DM : G0SUB350 : G0T060 IB 
850 REM **MEM0RY CLEANER** (F6-R0UTINE) MN 
860 POKE81,197:SYS49512:P0KE55296,0:GOT0 
60 DM 

870 REM *** ERROR TRAPPING *** IL 
880 GOSUB470 CP 

885 EN=PEEK(889) :IFEN>127THENPRINTCHR$(1 
9) :F0RI=1T011: PRINT: NEXT: END MG 

900 IFEN=11THENPRINT"CHECK THE FUNCTION. 

USE <F5>" KP 

910 IFEN=20THENPRINT"DIVISI0N BY ZERO. [4 
" "JCHANGE RANGE" BE 

920 IFEN=25THENPRINT"THE FUNCTION IS TOO 

COMPLEX. REDEFINE IT" KC 

930 IFEN=15THENPRINT"NUMBER TOO SMALL OR 

TOO HIGH.REDIFIME IT" BF 

940 IFEN=5THENPRINT"DEVICE NOT PRESENT. 
REPEAT OPERATION" DN 

950 G0T050 PD 

5000 REM ** MACHINE LANGUAGE ROUTINES ** JA 
5010 REM 49152-SET UP THE FORMAT GM 
5020 REM 49309-MOVE CHARACTERS RAM [BACK A 
RR0W]R0M NP 

5030 REM 49385-CLEAR THESE CHARACTERS DI 
5040 REM 49416-STORE ROUTINE HH 

5050 REM 49464-RECALL ROUTINE LC 

5060 REM 49512-CLEAR ROUTINE NE 

5070 REM 00875-SET UP TRAPPING FI 
5950 DATA169, 139, 141, 0,3, 169, 227, 141, 1,3 
,165,58,141,123 JE 

5960 DAT A3, 201, 255, 240, 39, 165, 57 ,141, 122 
,3,142,121,3,160 CP 

5970 DATAO, 185, 124, 3, 153, 0,2, 240, 3, 200, 2 
08,245,162,255 OP 

5980 DATA160, 1,76, 134, 164, 169,60,141,0,3 
,169,3,141,1 NH 

5990 DATA3, 96, 108,0,3 MJ 

6000 DATA169, 61, 162,40,157,223,5,157,207 
,6,202,208,247,169,4,162,40,157,223,217 DN 
6010 DATA157,207,218,157,31,219,202,208, 
244,169,45,162,40,157,31,7,202,208,250 PI 
6020 DATA169,72,162,0,157,44,4,157,84,4, 
157,124,4,157,164,4,157,204,4,157,244 LH 
6030 DATA4, 157, 28, 5, 157, 68, 5, 157, 108, 5,1 
57,148,5,208,5,162,16,169,71,76,43,192 PA 
6040 DATA169,13,162,0,157,44,216,157,84, 
216,157,124,216,157,164,216,157,204,216 CD 
6050 DATA157,244,216,157,28,217,157,68,2 
17,157,108,217,157,148,217,208,5,162,16 KH 
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I IMPORTANT I LeI,ers on wnite background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 

IlVIl Un I nil I ! and provide other essential information on entering Ahoy.' programs. Refer to these pages before entering any programs! 

• 6060 DATA76 , 86 , 192 , 169 , 69 , 162 , 15 , 157 , 188 

,5,202,208,250,169,82,162,15,157,4,4 HB 
•6070 DATA202, 208, 250, 169, 13, 162, 15, 157,1 

88,217,157,4,216,202,208,247,96,173,14 AH 
•6080 DATA220,41,254,141,14,220,165,1,41, 

251,133,1,169,0,133,80,133,78,169,208 DH 
•6090 DATA133,81,169,48,133,79,162,8,160, 

0,177,80,145,78,136,192,0,208,247,202 LB 
•6100 DATA240,7,230,81,230,79,76,189,192, 

165,1,9,4,133,1,173,14,220,9,1,141,14 BD 
•6110 DATA220,173,24,208,41,240,9,12,141, 

24,208,96 MK 

•6120 DATA169, 80, 133, 80, 169, 0,160, 0,162, 5 

1,134,81,145,80,136,208,251,232,224,55 NE 
•6130 DATA208,244,153,80,55,200,192,177,2 

08,248,96 FA 

•6140 DATA169,80,133,78,169,51,133,79,169 

,0,133,80,234,234,234,234,162,5,160,0 FM 
•6150 DATA177,78,17,80,145,80,200,208,247 

,230,81,230,79,202,208,240,177,78,17 GC 
•6160 DATA80, 145, 80, 200, 192, 177, 208, 245, 9 

6,169,80,133,78,169,51,133,79,169,0 AG 
•6170 DATA133, 80, 234, 234, 234, 234, 162,5,16 

0,0,177,80,17,78,145,78,200,208,247 AI 
•6180 DATA230,81,230,79,202,208,240,177,8 

0,17,78,145,78,200,192,177,208,245,96 DE 
•6190 DATA169, 0,133, 80, 234, 234, 234, 234, 16 

2 , 5 , 160 , 0, 169 , , 145 , 80 , 200 , 208 ,251 JD 
• 6200 DATA230 , 81 , 202 , 208 , 246 , 145 , 80 , 200 , 1 

92,177,208,249,96 NK 

TOWEftS OF ttANOI 

FROM PAGE 17 

•10 REM - TOWERS OF HANOI FOR COMMODORE 6 

4 OE 

•20 REM - DANIEL MILLER DK 

•30 REM - 2815 34 STREET OA 

•40 REM - ASTORIA, QUEENS AL 

•50 REM - NEW YORK, NEW YORK 11103 GM 

•60 REM - SEPTEMBER 1, 1983 HN 
•70 REM ***#**#********##***##*#*#***#** dd 

•80 GOT02150 FL 



•90 P0KE53281,1:ZZ=1:PRINTCL$;LEFT$(D0$,2 
);TAB(11);HDG$; NF 

•100 P0KE55587,10:P0KE1315,49:P0KE55595,1 
0:POKE1323,50:POKE556O3,10:POKE1331,51 DF 

•110 PRINT LEFT$(DO$,20);TAB(5);A$(1);LEF 
T$(D0$,9);TAB(11);A$(3); EB 

•120 PRINTLEFT$(DO$,9);TAB(19);A$(3);LEFT 
$(DO$,9);TAB(27);A$(3) HK 

•130 REM - PLACE SPRITES ON TOWER #1 PM 

• 140 POKEV+14 , 93 : POKEV+15 , 160 : POKEV+12 , 93 
:POKEV+13,151:POKEV+10,93:POKEV+ll,142 ML 

• 150 POKEV+8 , 93 : POKEV+9 , 133 : POKEV+6 , 93 : PO 
KEV+7,124:P0KEV+4,93:P0KEV+5,115 II 



160 P0KEV+2 , 93 : P0KEV+3 , 106 : POKEV+0 , 93 : PO 
KEV+1,97 OA 

170 IF YN$="Y" THENN2=8-NUM:G0T0200 FO 
180 IF ZZ=0 THEN350 HO 

190 PRINTLEFT$(D0$,22);TAB(8);NUM$;:INPU 
T NUM:N2=8-NUM:SP=0:IF NUM=8 THEN270 KC 
200 IF NUM<2 OR NUM>8 THENPRINT LEFT$(D0 
$,22);TAB(5);SP$;:GOT0190 MH 

210 IF NUM=8 AND YN$="Y" THEN270 HA 
220 N4=N2 LG 

230 FOR X=l TO N4 NB 

240 SP=SP+(2[UPARR0W](N4-1)) HP 

250 N4=N4-1:NEXT X KC 

260 P0KEV+21,(255-SP) GP 

270 ZZ=0:FOR TM=1 TO 250: NEXT TM:PRINTLE 
FT$(D0$,22);TAB(5);SP$; LF 

280 T1$="":T2$="":T3$="":N3=N2+1 DB 
290 FOR X=l TO NUM:T1$=T1$+T4$(X) :T2$=T2 
$+T5$(X):T3$=T3$+T6$(X):NEXT X GN 
300 IF YN$="Y" THEN1430 BE 

310 FOR X=l TO NUM:Y=2[UPARROW]X-l:NEXT 
X NG 

320 NUM$=RV$+G2$+STR$(NUM)+R0$+SLV$(1)+R 
V$+G2$+STR$(Y)+SLV$(2):Y0=Y NL 

330 PRINTLEFT$(D0$,22);TAB(6);NUM$;:F0R 
TM=1 TO 2000: NEXT TM LF 

340 FOR TM=1 TO 250: NEXT TM:PRINTLEFT$(D 
0$,22);TAB(5);SP$; PF 

350 PRINTLEFT$(DO$,22);TAB(6);F9$;"[4" " 
3";TAB(24);T9$;"[4" "]"j KA 

360 PRINTLEFT$(DO$,22);TAB(6);F9$;" ";CR 
$; GG 

370 NUM$="":SLV$(1)="":SLV$(2)="" OD 
380 IF ZA=2 THEN420 FP 

390 GET TWR$(1):IF TWR$(1)="" THEN390 AO 
400 IF TWR$(1)="[F1]" THEN1330:REM - 'Fl 

MN 
410 IF (TWR$(1)<"1" OR TWR$(1)>"3") THEN 
TWR$(1)="":G0T0390 FB 

420 PRINT RV$+RED$+TWR$(1)+R0$; BN 
430 G0SUB520 CL 

440 PRINTLEFT$(D0$,22);TAB(34);" ";CR$; DN 
450 IF ZA=2 THEN480 FB 

460 GET TWR$(2):IF TWR$(2)="" THEN460 GI 
470 IF TWR$(2)<"1" OR TWR$(2)>"3" THENTW 
R$(2)="":G0T0460 BK 

480 PRINT RV$+RED$+TWR$(2)+R0$; FC 
490 IF TWR$(1)<>TWR$(2) THEN510 AJ 
500 ER$=RV$+RED$+" INVALID ENTRIES"+R0$ : 
G0T0610 BL 

510 G0T0640 CG 

520 X=1:G0SUB530: RETURN GM 

530 ON VAL(TWR$(X)) G0T0540,560,580 GI 
540 IF VAL(T1$)=0 THEN600 HL 

550 RETURN IM 

560 IF VAL(T2$)=0 THEN600 FG 
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570 RETURN IM 

580 IF VAL(T3$)=0 THEN600 HJ 

590 RETURN IM 

600 ER$=RV$+RED$+ "TOWER # "+TWR$(X)+" IS 

EMPTY"+R0$ HB 

610 FOR Y=l TO 5:PRINTLEFT$(D0$,24);TAB( 
12)ER$;:F0R TM=1 TO 250:NEXT TM PJ 
620 PRINTLEFT$(D0$,24);TAB(12);LEFT$(SP$ 
,18);: FOR TM=1 TO 250 ND 

630 NEXT TM,Y:ER$="":G0T0350 NE 

640 ON VAL(TWR$(1)) G0T0650,680,710 DN 
650 FOR X=l TO NUM:IF MID$(T1$,X,1)="1" 
THEN670 GA 

660 NEXT X:LOC(1)=160:GOT0740 GN 

670 LOC(1)=T1(N2+X):T4$(N2+X)="0":GOT074 
LF 

680 FOR X=l TO NUM:IF MID$(T2$,X, 1)="1" 
THEN 700 BP 

690 NEXT X:L0C(1)=160:G0T0740 GN 

700 L0C(1)=T2(N2+X):T5$(N2+X)="0":G0T074 
DB 

710 FOR X=l TO NUM:IF MID$(T3$,X,1)="1" 
THEN 7 30 DD 

720 NEXT X:L0C(1)=160:G0T0740 GN 

730 L0C(1)=T3(N2+X):T6$(N2+X)="0" KB 
740 LC=LOC(1):GOSUB880:SP(1)=SP NF 
750 ON VAL(TWR$(2)) GOTO760,790,820 OK 
760 FOR X=l TO NUM:IF MID$(T1$,X,1)="1" 
THEN780 GG 

770 NEXT X:LOC(2)=160:T4$(N2+X-1)="1":GO 
T0850 IG 

780 L0C(2)=T1(N2+X-1):T4$(N2+X-1)="1":G0 
T0850 EP 

790 FOR X=l TO NUM:IF MID$(T2$,X,1)="1" 
THEN810 GJ 

800 NEXT X:L0C(2)=160:T5$(N2+X-1)="1":G0 
T0850 MD 

810 L0C(2)=T2(N2+X-1) :T5$(N2+X-1)="1":G0 
T0850 LN 

820 FOR X=l TO NUM:IF MID$(T3$,X,1)="1" 
THEN840 DJ 

830 NEXT X:L0C(2)=160:T6$(N2+X-1)='T':G0 
T0850 LA 

840 LOC(2)=T3(N2+X-l):T6$(N2+X-l)="l" AF 
850 LC=L0C(2):G0SUB880:SP(2)=SP DJ 
860 Tl$=* m :T2$= m, :T3$="":N5=N2+l OH 
870 FOR X=N5 TO 8:T1$=T1$+T4$(X) :T2$=T2$ 
+T5$(X):T3$=T3$+T6$(X):NEXT X:GOTO960 EF 
880 IF LC=97 THENSP=1: RETURN EN 

890 IF LC=106 THENSP=2: RETURN GL 

900 IF LC=115 THENSP=3: RETURN FA 

910 IF LC=124 THENSP=4: RETURN HB 

920 IF LC=133 THENSP=5: RETURN GO 

930 IF LC=142 THENSP=6: RETURN HH 

940 IF LC-151 THENSP-7: RETURN HM 

950 IF LO160 THENSP=8: RETURN GN 

960 ON VAL(TWR$(1)) GOT0970,980,990 BP 
970 SQ%=R1%(1,SP(1)):R1%(1,SP(1))=8:G0T0 



1000 FH 

980 SQ%=R2%(1,SP(1)):R2%(1,SP(1))=8:G0T0 
1000 KN 

990 SQ%=R3%(1,SP(1)):R3%(1,SP(1))=8 GI 
1000 ON VAL(TWR$(2)) G0T01010, 1020, 1030 HF 
1010 R1%(1,SP(2))=SQ%:G0T01040 IH 
1020 R2%(1,SP(2))=SQ%:G0T01040 KK 
1030 R3%(1,SP(2))=SQ% EE 

1040 ON VAL(TWR$(1)) G0T01050, 1060,1070 NM 
1050 X1=93:G0T01080 DC 

1060 X1=157:G0T01080 HJ 

1070 Xl=222 NL 

1080 ON VAL(TWR$(2)) G0T01090,1100,1110 JF 
1090 X2=93:G0T01120 EA 

1100 X2=157:G0T01120 IB 

1110 X2=222 NO 

1120 REM - MOVE SPRITE OB 

1130 ON SQ%+1 GOT01140, 1150, 1160, 1170, 11 
80,1190,1200,1210 OC 

1140 SP=0:SQ=l:GOT01220 KL 

1150 SP=2:SQ=3:G0T01220 MP 

1160 SP=4:SQ=5:GOT01220 BD 

1170 SP=6:SQ=7:G0T01220 OH 

1180 SP=8:SQ=9:GOT01220 ML 

1190 SP=10:SQ=11:G0T01220 CK 

1200 SP=12:SQ=13:GOT01220 CK 

1210 SP=14:SQ=15 JN 

1220 IF VAL(TWR$(1))>VAL(TWR$(2)) THEN12 
60 PE 

1230 FOR YY=L0C(1) TO 55 STEP-1:P0KE V+S 
P, XI: POKE V+SQ,YY:NEXT YY EA 

1240 FOR XX=X1 TO X2:P0KE V+SP,XX:POKE V 
+SQ,55:NEXT XX BA 

1250 FOR YY=55 TO L0C(2):P0KE V+SP,X2:P0 
KE V+SQ,YY:NEXT YY:G0T01290 GE 

1260 FOR YY=L0C(1) TO 55 STEP-1:P0KE V+S 
P, XI: POKE V+SQ,YY:NEXT YY EA 

1270 FOR XX=X1 TO X2 STEP-1:P0KE V+SP.XX 
:P0KE V+SQ,55:NEXT XX MO 

1280 FOR YY=55 TO L0C(2) :P0KEV+SP,X2:P0K 
EV+SQ,YY:NEXT YY NM 

1290 MV=MV+1:PRINTLEFT$(D0$,24);TAB(17); 
MV$+RV$+B2$+STR$(MV)+R0$; HD 

1300 IF ZA=2 THENMW=MW+1:GOT01440:REM - 
COMPUTER'S NEXT MOVE JG 

1310 GOT0350:REM - PLAYER'S NEXT MOVE GN 
1320 REM - COMPUTER SOLUTION NO 

1330 TWR$(1)="":PRINTLEFT$(D0$,24);TAB(7 
);CMP$; HJ 

1340 GET YN$:IF YN$="" THEN1340 ID 
1350 IF YN$="Y" THEN 1370 BH 

1360 IF YN$<>"N" THENYN$="":G0T01330 JG 
1370 PRINT RV$+BL$+" "+YN$+R0$; :FOR TM=1 
TO 500: NEXT TM:IF YN$="Y" THEN1420 JF 
1380 FOR TM=1 TO 1000: NEXT TM MJ 

1390 PRINTLEFT$(D0$,24);TAB(7);SP$;LEFT$ 
(D0$,24);TAB(9);EN$; OD 

1400 GET RT$:IF RT$OCHR$(13) THEN1400 BI 
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1410 POKE V+21,0:PRINT CL$;:END MG 
1420 SP=0:MV=0:MW=l:GOTO199O IE 

1430 YN$="":ZA=2:PRINTLEFT$(DO$,24);TAB( 
7);SP$; HD 

1440 BI$="":F0R X=l TO 8:BI$(X)="0":NEXT 

X GO 

1450 IF MV=YO THEN1380 PL 

1460 CT=FRE(0) IL 

1470 C2=0:C3=0:C4=0:C5=0:C6=0:ZA=2 BI 
1480 DEC=MW CI 

1490 FOR Y=0 TO 8: IF INT(2[UPARR0W]Y)>DE 
C THENY=Y-1:BI$(Y)="1":G0T01510 EE 
1500 BI$(Y)="0":NEXT Y KC 

1510 DEC=DEC-2[UPARR0W]Y:IF DEC=0 THEN15 
30 NE 

1520 GOT01490 GF 

1530 FOR Y=7 TO STEP-1 :BI$=BI$+BI$(Y) : 
NEXT Y KN 

1540 FOR X=8 TO 1 STEP-1: IF MID$(BI$,X,1 
)="0" THENC2=C2+1:NEXT X PG 

1550 C2=C2+1 IM 

1560 RI%=C2+NUM-1:0N NUM-1 GOT01570.1580 
, 1590, 1600, 1610, 1620, 1630 MP 

1570 RI%=RI%+4:G0T01640 KD 

1580 RI%=RI%+2:GOT01640 MB 

1590 GOT01640 FM 

1600 RII=RI%-2:GOT01640 MC 

1610 RI%=RI%-4:GOT01640 KM 

1620 RI%=RI%-6:GOT01640 LG 

1630 RI%=ABS(RI%-8) DD 

1640 FOR X=l TO 8: IF R1%(1,X)=RI% THENTW 
R$(1)="1":G0T01670 HH 

1650 NEXT X:F0R X=l TO 8: IF R2%(1,X)=RI% 

THENTWR$(1)="2":G0T01670 GJ 

1660 NEXT X:TWR$(1)="3" AO 

1670 L$=TWR$(1) MH 

1680 FOR X=l TO 8: IF MID$(BI$,X, 1)» M 1" T 
HENC3=C3+1:NEXT X:G0T01700 NP 

1690 NEXT X NK 

1700 IF C3>1 THEN1740 FC 

1710 IF VAL(T1$)=0 THENTWR$(2)="l":GOT03 
50 FB 

1720 IF VAL(T2$)=0 THENTWR$(2)="2":G0T03 
50 OH 

1730 IF VAL(T3$)=0 THENTWR$(2)="3":G0T03 
50 CF 

1740 FOR X=8 TO 1 STEP-1 :C4=C4+1: IF MID$ 
(BI$,X,1)="0" THENNEXT X KG 

1750 C6=C4 KE 

1760 FOR X=8-C4 TO 1 STEP-1 :C6=C6+1: IF M 
ID$(BI$,X,1)="0"THENC5=C5+1:NEXT X IF 
1770 RJ%=C6+NUM-1:0N NUM-1 GOT01780.1790 
, 1800, 1810, 1820, 1830, 1840 KM 

1780 RJ%= S RJ%+4:GCT01850 PC 

1790 RJ%=RJ%+2:GGT01850 NI 

1800 G0T01850 GF 

1810 RJ%=RJ%-2:G0T01850 NF 

1820 RJ%=RJ%-4:GOT01850 KH 



1830 RJ%=RJ%-6:GCT01850 NJ 

1840 RJ%=ABS(RJ%-8) EH 

1850 FOR X=l TO 8:IF R1%(1,X)=RJ% THENTX 
$="1":GOT01880 PC 

1860 NEXT X:F0R X=l TO 8: IF R2%(1,X)=RJ% 

THENTX$="2":G0T01880 KI 

1870 NEXT X:TX$="3" CB 

1880 M$=TX$ PH 

1890 LM$=L$+M$ AO 

1900 IF (C5/2)=INT(C5/2) OR C5=0 THENTWR 
$(2)=TX$:G0T01970 OF 

1910 IF LM$="12" THENTWR$(2)="3":GCT0197 
OC 

1920 IF LM$="13" THENTWR$(2)="2":GOT0197 
DC 

1930 IF LM$="23" THENTWR$(2)="1":G0T0197 
HA 

1940 IF LM$="21" THENTWR$(2)="3":G0T0197 
NI 

1950 IF LM$="31" THENTWR$(2)="2":G0T0197 
OG 

1960 IF LM$="32" THENTWR$(2)="1" EL 
1970 L$=" n :M$="":LM$="":CT=FRE(0):GO r i035 
FO 

1980 REM - BUILD SPRITES FI 

1990 V=53248:P0KEV+21,255:POKEV+23,255:P 
OKEV+29,255 PE 

2000 P0KE2040, 192 : P0KE2041 , 193 : P0KE2042 , 
194:POKE2043,195:POKE2044,196 ND 

2010 P0KE2045,197:P0KE2046,198:P0LE2047, 
199 KP 

2020 P0KEV+39 , 3 : POKEV+40 , 15 : P0KEV+41 , 13 : 
P0KEV+42 , 9 : P0KEV+43 , 14 : P0KEV+44 , 5 JC 
2030 POKE V+45,8:P0KEV+46,0 CG 

2040 RESTORE :N0=12288: FOR X=l TO 8: FOR N 
=0 TO 62: READ Q:POKE NO+N,Q:NEXT N EF 
2050 N0=Nrx-64:NEXT X NB 

2060 T1$="[8*TT:T2$="[8' , , T:T3$="[8"0 
""]" DP 

2070 FOR X=l TO 8:T4$(X)=MID$(T1$,X,1) :N 
EXT X FJ 

2080 FOR X=l TO 8:T C $(X)=MID$(T2$,X,1) :N 
EXT X MJ 

2090 FOR X=l TO 8:T6$(X)=MID$(T3$,X,1) :N 
EXT X PF 

2100 Z%=97:F0R X=l TO 8:T1(X)=Z%:T2(X)=Z 
%:T3(X)=Z%:Z%=Z%+9:NEXT X PC 

2110 Y%=0:FOR X=l TO 8:R1%(1 ,X)-Y%:Y%=Y% 
+1:NEXT X PF 

2120 FOR X=l TO 8:R2%(1,X)-9:R3%(1 ,X)=9: 
NEXT X DM 

2130 IF YN$="Y" THEN140 OG 

2140 GOT090 PP 

2150 REM - BUILD CHARACTER GRAPHICS PH 
2160 BLK$=CHR$(144):RED$=CHR$(28):YEL$=C 
HR$(158):B2LU$=CHR$(31):CY$=CHR$(159) ML 
2170 GlREY$="[c 4]":G2REY$="[c 5]": REM - 

C=(4); C=(5) KJ 
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2180 RV$=CHR$(18):R0$=CHR$(146) HK 
2190 CL$=CHR$(147):DW$=CHR$(17):LF$=CHR$ 
(157) DA 

2200 FOR X=l TO 24:DO$=DO$+DW$:NEXT X:DO 
$=CHR$(19)+D0$ GG 

2210 A$(l)=RV$+B2$+"[30" "]"+R0$ AO 
2220 A$(2)=RV$+YEL$+" "+DW$+LF$ OK 
2230 FOR X=l TO 10:A$(3)=A$(3)+A$(2) :NEX 
T X NM 

2240 A$(3)=A$(3)+" "+R0$ DB 

2250 HDG$=RV$+WH$+"TOWERS OF HAN0I"+R0$ GD 
2260 NUM$=RV$+B2$+"NUMBER OF RINGS (2 - 
8)"+R0$ NJ 

2270 SP$="[30 M "]" PK 

2280 F9$=RV$+G1$+"FR0M TOWER #"+R0$:T9$= 
RV$+G1$+"T0 TOWER #"+R0$ HG 

2290 CR$=RV$+CY$+" "+R0$ HK 

2300 SLV$(1)=RV$+G2$+" RINGS REQUIRES"+R 
0$:SLV$(2)=RV$+G2$+" MOVES. "+R0$ DA 
2310 MV$=RV$+B2$+"M0VE #"+R0$ FC 

2320 CMP$=RV$+G1$+"C0MPUTER SOLUTION (Y/ 
N) ?"+R0$ AP 

2330 EN$=RV$+G1$+"PRESS <RETURN> TO END" 
+R0$ KL 

2340 GOT01990 GC 

2350 REM - DATA FOR SPRITES NK 

2360 REM - SPRITE NB 

9^70 T5ATA 
1 1 1 1 1 1 ) i i > i 1 1 1 1 1 1 1 1 1 > 1 1 ' KCrl j J LaJMMAo LJ 

2380 DATA 1,255,128,1,255,128,1,255,128 FH 
2390 REM - SPRITE 1 NA 

Zh')'J DA1A , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , 



i » » i i > j i ) « 1 

2410 DATA 3 



2420 REM - SPRITE 2 
2430 DATA , 



lltllll 

255,192 



mim 

J t t ! J » ! 

255,224 



, MH 

255,192,3,255,192 MO 

NH 

(III!! MltllMIIH 

MH 
255,224,7,255,224 00 

NG 

IIIIIIIIHIIIIIMt 



lllllllllll 

2440 DATA 7 

2450 REM - SPRITE 3 

2460 DATA , 

MH 

2470 DATA 15,255,240,15,255,240,15,255,2 
40 JD 

2480 REM - SPRITE 4 NF 

24 90 DATA 
Miiniiiiinnnmiti M" 

2500 DATA 31,255,248,31,255,248,31,255,2 
48 IJ 

2510 REM - SPRITE 5 NE 

Z_)Z J Dnl A MiiitiiiiniiHiiiiiiiiiinii 
IMIilMlllllliiiimii MH 

2530 DATA 63,255,252,63,255,252,63,255,2 
52 AB 

2540 REM - SPRITE 6 NL 

ZDj J DA1A iMiiiiitntininiiiiiiiniii 
iiiiiiiMHiiiitimiii Mn 

2560 DATA 127,255,254,127,255,254,127,25 

5.254 AF 
2570 REM - SPRITE 7 NK 

/Jo' J iJA 1A ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

MMIIIMtlllllllllllll Mn 

2590 DATA 255,255,255,255,255,255,255,25 

5.255 NI 
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Continued from page 84 



is meaningless. Jim's solution checked for proper syn- 
tax as it evaluated the input. That makes the problem 
quite a bit tougher. We'll leave that as an additional chal- 
lenge for those of you who found this one too easy. 

The follow people who haven't been mentioned ear- 
lier also sent solutions to February Commodores: Donald 
H. Graham (Baltimore, MD), Paul Sturm (Weatherford, 



TX), Jesus Geliga-Torres (Aguadilla. PR). Dan R. King 
(High Rolls. NM), Thomas Lambert (Severna Park, 
MD). Richard Balliet (Nuangola. PA). Glenn Elliot 
(Rutherford, NJ), Robert Lackey (Albuquerque, NM), 
Jack Thompson (Kirkwood, MO), Bruce Landrum (Fay- 
etteville. AR). Dex Peterson (LeRoy, MI). Royce Crabtree 
(Madisonville. KY), and Aaron Hughart (Pocatello. ID). 
Once again, these arc the people whose solutions to 
February's Commodores have reached us by the middle 
of February. Put on those thinking caps and get busy on 
this month's challenges. You've got a lot of work to do! □ 



COMING IN THE JULY AHOY! (ON SALE JUNE 4) 



MAKING YOUR 



OWN PROMS 



PUTTING YOUR VIC AND 64 

PROGRAMS INTO PERMANENT 

READ ONLY MEMORY 



MACHINE LANGUAGE 



MUSIC ROUTINES 



FOR THE VIC AND 64 

FEATURING 

SOUND ENVELOPES 



FOR THE VIC 
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SPEEDING PIXELS 
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SOME ASSEMBLY LANGUAGE 
HELP FOR BIT 
MAP GRAPHICS 


1 
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EIGHT NEW WAYS TO GO FOR THE GOLD. 

_ T 
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Sure Summer Games was great, but 
why stop there? Let Summer Games U take 
you even farther with eight new events 
including cycling, fencing, kayaking, triple 
jump, rowing, high jump, javelin and even 
equestrian. They can all be played by 
up to eight players and some, like cycling, 
rowing and fencing challenge you with 
realistic head-to-head competition. 

First, you decide which i if the 18 different 
countries you're going to represent. Then, 
in true Olympic fashion, you will need the 
proper strategy and mental toughness, 
not just speed and agility to excel in each 



event. It's so realistic, there's even an 
opening and closing ceremony along with 
medal presentations after each event. 

It's not too early to get ready for 1988. 
With the right diet, proper training and 
hours of practice you just might make it. In 
the meantime, put on your sweatsuit, grab 
that joystick and let Summer Gaines II give 
you eight new ways to Go For The Gold! 
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Reader Service No 261 



Strategy Games for the Action-Game Player 





BEACH-HEAD — As -chic 
commander ol armed feirpi - 
in ttie Pacific, your' firs 
assignment is a tough one Your mission is to obtain a cjaid 
naval victory and invade enemy territory with land forces. BEACH-HEAD I 
— The wartime drama continues with "The Dictator Strikes Back 
BEACH-HEAD tl is a true "head to head" two player game with 
simulation and superb multiscreen graphics. RAID OVER MOSCOW - 
The Soviets launch a first strike against the United States. Ca 
commandos react in time to stop the attack'' 
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disk dive Ihe package provides m 
to 50th last-i program tailing 4) 
ol additional basic mrkspate m 
disk catalogue 

Mach S Loader wilt load 9S* it 
ail programs uj io SXh lasts that 
a normal 1541 disk drive Add: 
addition single keystroke " com 
riB'-ds Id make life mih yoor 154' 
more pleasant Macti S Basil 
nudities Itie C-M keinal and ton 
ROMs I: tiee up an additional 4t 
bytes ol memory lor use by 5asn 
language piogramm-.- 
space is increased trotr 39K to 43) 
Kiiil! lemming lolly cDTpaiibli 
nit normal CBM version 2 1 
and kta S loader. 

Math 5 Disk Oiganuii is , 
comprekensiv; disk managemai 
jnogram wtich "ill create a cat< 
disk coolaaing duectory iniorma 
lion horn (tie use's entire ft! 
library Disk names, tile names an 
oilier important minimal ion is auto 
matically eitracltd liom a disk am 
cataloged tor Inline nleieoce Thi 
usei can then obtain a sorted list o 
all disks and all tiles within thii 
libiary. oi seaicti lor spetilic till 
names or pans ol names. Oulpu 
can be dirtcteit lo either screen o 
punier. 



Software Incorporated 



These Access Software products are compatible with the 
Commodore 64, Atari, Apple II+/IIC/IIE and IBM PC/PC Jr. Be 
sure to look for other Access Software products at a store near you. 
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